#!/usr/bin/perl
open FILE, "2.txt";
open ID, "os1.txt";
open (RESULT, ">ll");
chomp and $h{$_}++ while <ID>;
while(<FILE>) {
    chomp;
    [at=4379798]temp[/at] = split /\t/;
    $id = $temp[0];
    print RESULT "$_\n" if exists $h{$id};
}
close(FILE);
close(ID);
close RESULT;

3楼: Originally posted by jackie1179 at 2016-07-24 22:49:30
将代码部分放进   之间就不会出现这种情况了
改动如下：

#!/usr/bin/perl
open FILE, "2.txt";
open ID, "os1.txt";
open (RESULT, ">ll";
chomp and $h{$_}++ while &l ...

4楼: Originally posted by junruiwang at 2016-07-25 09:07:28
您添加的那两行具体能麻烦您解释一下吗？看不太懂～
...

'   '