哈希求助

Monday0

太感谢了， 我这水平很有待与提高回复 10# 清泉一边


   

Monday0

我的确是按照代码运行的，可为什么这次运行结果什么也没有呢
    #!/usr/bin/perl -w
    use strict;

    my $file_1=shift;
    my $file_2=shift;
    open(IN2,"$file_2")||die"$!\n";
    my %hash;
    while (<IN2>){
            chomp;
            my @a=split /\t/,2;
            $hash{$a[0]} = $a[1];
    }close IN2;

    open(IN1,"$file_1")||die"$!\n";
    while (<IN1>)
    {
    chomp;
    print "$_\t$hash{$_}\n" if exists $hash{$_};
    }
    close IN1;
回复 10# 清泉一边


   

清泉一边

有结果呀，你看看文件是不是以tab键隔开的，如果是空格隔开的，就用

1. my @a = split /\s+/,$_,2; 再试试吧

复制代码

回复 12# Monday0


   

Monday0

) 真的出来了，是空格的原因回复 13# 清泉一边


   

ntwarren

#!/usr/bin/perl
open IN2,"<","file2";
while(<IN2>){
    chomp;
    my @a=split /[ \t]+/,$_;
    $hash{$a[0]}=[$a[1],$a[2]];
}
open IN1,"<","file1";
my @b=<IN1>;
chomp @b;
for my $c(@b){
    print "$c\t @{$hash{$c}}";
}