Re: [問題]有關資料擷取部分的一個小問題
※ 引述《rom1025 (περ'ιπεπια)》之銘言:
: 試試看這個可不可以用
: open (IN, 'X:\filename.txt');
: while ($line = <IN>){
: chomp($line);
: if ($line=~ /^>(ENSP.*?)\s/) {
: $ENSP = $1;
: open (OUT, ">>$ENSP.fasta");
: print OUT ">$ENSP\n";
: }else{
: print OUT "$line\n";
: }
: }
: close IN;
: close OUT;
非常感謝!
這個範例可以得到我想要的資訊!!
謝謝^^
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.109.55.84
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 5 之 5 篇):