+ -
当前位置:首页 → 问答吧 → perl 数组问题

perl 数组问题

时间:2010-07-30

来源:互联网

  1. my @rno1 = (100..109);
  2. my %rno = (
  3.          no1 => "@rno1",

  4. while ( my ($key,$value) = each(%rno)) {
  5.          foreach my $var  ($value ){
  6.                  print "$var\n"
  7. }
复制代码
这里输出的是一个数组的形式,不能单个的输出,请教原因

作者: qiuzhimajia   发布时间: 2010-07-30

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

作者: 兰花仙子   发布时间: 2010-07-30



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




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

作者: qiuzhimajia   发布时间: 2010-07-30

no1 => \@rno1

print @$value

作者: yybmsrs   发布时间: 2010-07-30

怎么都感觉有些绕…
  1. my @rno1 = (100..109);
  2. my %rno=(
  3.   "no1" => "@rno1",
  4. );
  5. while (($key,$value)=each (%rno)) {
  6.    foreach my $var (split/ /,$value) {
  7.         print "$var\n"
  8.    }
  9. }
  10. <STDIN>
复制代码

作者: paktc   发布时间: 2010-07-30

呵呵都行,谢谢

作者: qiuzhimajia   发布时间: 2010-07-30