perl多个变量赋同一初始值

莫莫小米

刚学perl，写了一个脚本，如何给几十个变量初始化为0呢？

use strict;
my ($c1,$c2,c3,c4,c5,c6,c7,c8,c9,c10,c11,c12,c13,c14,c15,c16) = 0;

这样赋值会报错：Use of uninitialized value $c2 in concatenation (.) or string at test.pl line 56

因为变量太多，一个个的赋初始值太麻烦

yybmsrs

= (0) x 16;                    

MMMIX

回复 1# 莫莫小米


    干吗不直接用个 array ?

莫莫小米

回复 2# yybmsrs

谢谢，搞定了
   

莫莫小米

回复 3# MMMIX

每个变量所用作的功能不一样，不怎么会用数组，所以用的最笨的方法
   

jason680

回复 5# 莫莫小米

>> ..每个变量所用作的功能不一样，不怎么会用数组，所以用的最笨的方法
   
1. 作用不一样, 使用不一样名称...
ex:   $count, $name, $id, ...

2. 数组
my @c;
   
$c1  ==> $c[1]
$c2  ==> $c[2]
$c1  ==> $c[3]
..
$c16 ==>$c[16]

substr函数

回复 1# 莫莫小米

1. my ( $c1, $c2, c3, c4, c5, c6, c7, c8, c9, c10, c11, c12, c13, c14, c15, c16 )
   
2.   = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 );

复制代码

兰花仙子

回复 1# 莫莫小米


    可以map下

1. my ($c1,$c2,$c3,$c4,$c5,$c6,$c7,$c8,$c9,$c10,$c11,$c12,$c13,$c14,$c15,$c16) = map {0} 1..16

复制代码