[問題] 抓取資料
大家好我是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
推
05/21 23:01, , 1F
05/21 23:01, 1F
→
05/22 01:19, , 2F
05/22 01:19, 2F
→
05/22 01:19, , 3F
05/22 01:19, 3F
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇):
問題
1
3