推 giacch:eq 是字串相等耶... 沒有data跟list的範例嗎..? 05/21 23:01
→ giacch:@line=split(/\s+/,$all[$i]); 05/22 01:19
→ giacch:我之前懷疑的方向錯了... 05/22 01:19
大家好我是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