作者liebesie ( )
看板Perl
标题[问题] 抓取资料
时间Fri May 21 21:02:22 2010
大家好我是Perl新手
有个小问题希望大家可以帮帮我(想了一下午结果就是跑不出来QQ)
我有一个list 跟一个data
想从data中抓取符合list内容的资料
以下是我的code 不知道是不是code有错还是哪里有问题
输出的档案依旧是空白...
#!/usr/bin/perl
open(Data,"<gene_gid.txt");
@all = <Data>;
close(Data);
open(List,"<ca-g-meta.txt");
@list = <List>;
close(List);
open(ANS,">result.txt");
for($j=0;$j<$#list;$j++){
chomp($list[$j]);
}
for($i=0;$i<$#all;$i++){
@line=split("\t",$all[$i]);
for($j=0;$j<$#list;$j++){
if($line[0] eq $list[$j]){
print ANS "$all[$i]";
}
}
}
close(ANS);
谢谢!!!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 110.24.66.205
1F：推 giacch:eq 是字串相等耶... 没有data跟list的范例吗..? 05/21 23:01
2F：→ giacch:@line=split(/\s+/,$all[$i]); 05/22 01:19
3F：→ giacch:我之前怀疑的方向错了... 05/22 01:19