请教一个my变量如何赋值的问题

chenjiali1

程序如下：
if (defined $opts{rna}) {
        print OUT "\n#****** Table four ********\n\n";
        print OUT "#class\tGene#\tExpressed Gene#\tTotal unique map Reads#\tpercent\n";
        printf OUT "%s\t%d\t%d\t%d\t%.4f%s\n","Gene#",$count,$count-$exp[0],$array[0]+$array[1],($array[0]+$array[1])/$reads*100,"%";
        foreach my $key (sort keys %hash) {
                my ($g_no,$r_no);
                foreach  (@{$hash{$key}[1]}) {
                        $g_no +=$_;
                }
                foreach  (@{$hash{$key}[2]}) {
                        $r_no +=$_;
                }
                printf OUT "%s\t%d\t%d\t%d\t%.4f%s\n",$key,$#{$hash{$key}[0]}+1,$g_no,$r_no,$r_no/$reads*100,"%";
        }
}
我在跑的时候，一直提示
Use of uninitialized value in addition (+) at /leofs/yangyg_group/zhaoxu/shy/ListOfAnnotate1.pl line  $g_no +=$_;
.
Use of uninitialized value in addition (+) at /leofs/yangyg_group/zhaoxu/shy/ListOfAnnotate1.pl line  r_no +=$_;

请问大家my ($g_no,$r_no)我直接写成my ($g_no=0，$r_no=0为什么不行，还是提示一样的问题，跑的文本太大，不好上传，见谅!

请高手指教！

laputa73

$g_no +=$_ if($_);

jason680

回复 1# chenjiali1

my ($g_no, $r_no) = (0, 0);