| ²é¿´: 309 | »Ø¸´: 0 | ||
junruiwangгæ (СÓÐÃûÆø)
|
[ÇóÖú]
Äܰïæ¸ÄһϳÌÐòô£¿ÐÂÊÖÈëÃÅ
#!/usr/bin/per...
|
|
Äܰïæ¸ÄһϳÌÐòô£¿ÐÂÊÖÈëÃÅ #!/usr/bin/perl open FILE, "2.txt"; open ID, "os1.txt"; open (RESULT, ">ll" ;chomp and $h{$_}++ while <ID>; while(<FILE>{ my (undef, $id) = split /\t/; print RESULT if exists $h{$id}; } close(FILE); close(ID); ÔʼÎļþ1.txt a 1 3 6 b 2 8 1 c 5 2 7 d 6 12 13 e 2 3 6 2.txtΪ a d e ¸ù¾Ý2ÁгöµÄ±àºÅ£¬ÌáÈ¡³ö1ÖеÄÐÐ @´óÊ¥ ·¢×ÔСľ³æAndroid¿Í»§¶Ë |
» ²ÂÄãϲ»¶
ר˶085601Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
282Çóµ÷¼Á ²»Ìôרҵ ÇóÊÕÁô
ÒѾÓÐ6È˻ظ´
²ÄÁÏר˶ µ÷¼Á
ÒѾÓÐ7È˻ظ´
285Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
280Çóµ÷¼Á
ÒѾÓÐ17È˻ظ´
¹¤¿Æ 267Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
µ÷¼Á
ÒѾÓÐ5È˻ظ´
²ÄÁϵ÷¼Á
ÒѾÓÐ13È˻ظ´
315Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
270Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´














;
»Ø¸´´ËÂ¥