perl用变量、数组作为数组名+给hash数组中的数组增加元素

一：perl用变量作为数组名

@{$test}=(green, red);

必须看清楚哦，@后面必须有个大括号

这里$test是一个变量，在前面的程序中赋值。

 

二：用数组作为数组名

@{$JOB[1]}=(green, red);

必须有个大括号。不然就出错。

 

二：hash数组中的数组增加元素

假设有hash数组：%job_id，其中的一个key为$JOB[1] （$JOB[1]是数组变量，将其作为key的名称），它对应的value是个一维数组，现在想往这个一维数组中增加元素$JOB[0]。使用过如下几种方法：

错误一：想利用push函数将$JOB[0]先push到数组@$JOB[1]中，然后再将该数组赋值给$job_id{$JOB[1]}。如下所示：

$JOB[0]=yellow;
$JOB[1]=test;
@$JOB[1]=(green, red);

$job_id($JOB[1])=push(@$JOB[1],$JOB[0]);
结果报错。这很正常，没大括号哦

错误二：

push(@{$JOB[1]},$JOB[0]);
$job_id($JOB[1])=@{$JOB[1]};

push没有问题了。给$job_id($JOB[1])赋值有问题。

正确：

push (@{$job_id{$JOB[1]}},$JOB[0]);