| 查看: 306 | 回复: 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客户端 |
回复此楼» 猜你喜欢
情人节自我反思：在爱情中有过遗憾吗？
已经有6人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
10