Re: [問題]有關資料擷取部分的一個小問題

[anysomething (努力一點比在實在！)]

※ 引述《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