| 查看: 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人回复
