作者giacch (小ａ)
看板Perl
标题Re: [问题] 抓取资料
时间Sat May 22 14:46:28 2010
#!/usr/bin/perl
open(Data,"<gene_gid.txt");
@all = <Data>;
close(Data);
open(List,"<ca-g-meta.txt");
@list = <List>;
close(List);
chomp(@list);
open(ANS,">result.txt");
foreach $s (@list) {
print ANS grep {/^$s/} @all;
# 这里只有指定出现在开头 /^$s/
# 若遇到 $s = 'DDR' 则 data 里的 DDR DDR1 DDR2 都会被取出
}
close(ANS);
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.192.170.66