#!/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