+ -
当前位置:首页 → 问答吧 → perl 哈希引用的作用域?

perl 哈希引用的作用域?

时间:2011-01-08

来源:互联网

  1. %abc=();
  2. foreach $file (@files)
  3. {

  4. open $fh, "<", $file
  5. while(<$fh>)
  6. {
  7. chomp;
  8. my $line = $_;
  9. my @field =split(/\s+/,$line);     
  10. my $tcs = field[4];
  11. my $did = field[5];
  12. my $cid = field[6];
  13. $abc{$did}{$cid}{"tc"}+=$tcs;  
  14. print Dumper($abc);
  15. }
  16. }
  17. close
复制代码
结果居然显示 $abc=undef; 但是 $tcs\$did\$cid  确实有值 请问如何正确赋给哈希%abc

作者: ztj2247   发布时间: 2011-01-08

你在什么地方给 $abc 赋值了?
你确实没给那个东西赋值

作者: meihuaqi   发布时间: 2011-01-08



QUOTE:
你在什么地方给 $abc 赋值了?
你确实没给那个东西赋值
meihuaqi 发表于 2011-01-08 22:13




    $abc{$did}{$cid}{"tc"}+=$tcs;  这里赋值不算吗??

作者: ztj2247   发布时间: 2011-01-08

回复 ztj2247
print Dumper(%abc);

作者: meihuaqi   发布时间: 2011-01-08