#!/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
ÄúÌí¼ÓµÄÄÇÁ½ÐоßÌåÄÜÂé·³Äú½âÊÍÒ»ÏÂÂ𣿿´²»Ì«¶®¡«
...

'   '