| 查看: 301 | 回复: 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客户端 |
回复此楼» 猜你喜欢
计算机、0854电子信息（085401-058412）调剂
已经有5人回复
-
国自然申请面上模板最新2026版出了吗？
已经有13人回复
-
基金委咋了？2026年的指南还没有出来？
已经有3人回复
-
Materials Today Chemistry审稿周期
已经有5人回复
-
溴的反应液脱色
已经有7人回复
-
推荐一本书
已经有12人回复
-
基金申报
已经有4人回复
-
纳米粒子粒径的测量
已经有7人回复
-
常年博士招收(双一流，工科)
已经有4人回复
-
参与限项
已经有5人回复