24小时热门版块排行榜

>论坛更新日志 (3314)
>虫友互识 (205)
>基金申请 (152)
>文献求助 (62)
>导师招生 (48)
>硕博家园 (29)
>考博 (29)
>论文投稿 (27)
>教师之家 (26)
>博后之家 (24)
>论文道贺祈福 (24)
>找工作 (23)
>公派出国 (21)
>休闲灌水 (19)
>考研 (16)
>SciFinder/Reaxys (7)

返回列表

junruiwang

新虫 (小有名气)

应助: 0 (幼儿园)
金币: 153.2
散金: 30
红花: 1
帖子: 89
在线: 16.2小时
虫号: 3501565
注册: 2014-10-27
性别: MM
专业: 作物种质资源与遗传育种学

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客户端

回复此楼

» 猜你喜欢

1楼 2016-07-22 10:52:28

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 junruiwang 的主题更新

返回列表