初始化问题

liuguiyou1981

#!/usr/bin/perl
use warnings;
use strict;

open(ONE,"$ARGV[0]") or die $!;
open(TWO,"$ARGV[1]") or die $!;

my %h;
my @a;
my @b;

while (<ONE>) {
    chomp;
    @a=split/\t/;
    $h{$a[1]}=$a[0];
}


while(<TWO>) {
     chomp;
     @b=split/\t/;
     print "$h{$b[0]}\t$b[1]\n";
     
}
exit;

为什么老提示：
Use of uninitialized value within %h in concatenation (.) or string at ./ex.pl line 22

兰花仙子

print "$h{$b[0]}\t$b[1]\n";

因为$h{$b[0]}很可能不存在。

liuguiyou1981

谢谢仙子，明白了，最好defined一下，呵呵！

兰花仙子

不是用defined判断，而是用exists判断。

liuguiyou1981

恩  对