这个perl怎么避免报错

cxfcxf

#!/usr/bin/perl use strict; use warnings; my %hash; foreach (<DATA>) {     chomp;     my ($a, $b, $c, $d, $e, $f) = split /\ /, $_;     $b += ${$hash{$a}}[0];     $c += ${$hash{$a}}[1];     $d += ${$hash{$a}}[2];     $e += ${$hash{$a}}[3];     $f += ${$hash{$a}}[4];     @{$hash{$a}} = ($b, $c, $d, $e, $f); } foreach (keys %hash) {     print "@{$hash{$_}}\n"; } __DATA__ A 12 34 5 63 58 B 42 36 86 2 23 C 36 98 72 63 3 D 69 32 18 99 66 E 12 34 5 63 58 F 42 36 86 2 23 G 36 98 72 63 3 D 60 32 10 9 23

中间的 ${$hash{$a}}[0]  貌似因为没有 也不能去初始化 都会报错
虽然结果出来是正确的
请问这种怎么避免报错
报错信息
Use of uninitialized value in addition (+) at /root/addd.pl line 10, <DATA> line 8.
Use of uninitialized value in addition (+) at /root/addd.pl line 11, <DATA> line 8.
Use of uninitialized value in addition (+) at /root/addd.pl line 12, <DATA> line 8.
Use of uninitialized value in addition (+) at /root/addd.pl line 13, <DATA> line 8.
Use of uninitialized value in addition (+) at /root/addd.pl line 14, <DATA> line 8.

fromheaven

if(exists $hash{$a})
{
    $b += ${$hash{$a}}[0];
    $c += ${$hash{$a}}[1];
    $d += ${$hash{$a}}[2];
    $e += ${$hash{$a}}[3];
    $f += ${$hash{$a}}[4];
}

DQP

可以使用no warnings;
不过一般我会写成这样

1. 
   
2.     $c += ${$hash{$a}}[1] // 0; # 如果是perl 5.10以下 也可以用||代替//
   

复制代码

cxfcxf

原帖由 DQP 于 2009-9-7 10:08 发表
可以使用no warnings;
不过一般我会写成这样

    $c += ${$hash{$a}}[1] // 0; # 如果是perl 5.10以下 也可以用||代替//

非常感谢..这个很好用.....这个办法很不错...用or....

jiang_ocean

shell版有一个类似问题：http://bbs2.chinaunix.net/thread-1567650-1-1.html