| 查看: 340 | 回复: 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客户端 |
回复此楼» 猜你喜欢
40+中年人失业后，还能找到好工作吗？
已经有15人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有5人回复
-
申请科研项目纯靠实力能成功吗？
已经有12人回复
-
用NBS溴化时溶剂除了CCl4外还有什么
已经有6人回复
-
极限拉扯，如何抉择
已经有15人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
招收博士生一名
已经有3人回复