perl 数组问题

qiuzhimajia

1. my @rno1 = (100..109);
   
2. my %rno = (
   
3.          no1 => "@rno1",
   
4. ）
   
5. while ( my ($key,$value) = each(%rno)) {
   
6.          foreach my $var  ($value ){
   
7.                  print "$var\n"
   
8. }

复制代码

这里输出的是一个数组的形式，不能单个的输出，请教原因

兰花仙子

"@rno1"串化了这个数组。
请使用数组引用。

qiuzhimajia

"@rno1"串化了这个数组。
请使用数组引用。
兰花仙子 发表于 2010-07-30 16:27

    能不能详细点，如果用在我这个例子上我应该怎么做，谢谢

yybmsrs

no1 => \@rno1

print @$value

paktc

怎么都感觉有些绕…

1. 
   
2. my @rno1 = (100..109);
   
3. my %rno=(
   
4.   "no1" => "@rno1",
   
5. );
   
6. while (($key,$value)=each (%rno)) {
   
7.    foreach my $var (split/ /,$value) {
   
8.         print "$var\n"
   
9.    }
   
10. }
    
11. <STDIN>
    

复制代码

qiuzhimajia

呵呵都行，谢谢