作者anysomething (努力一点比在实在！)
看板Perl
标题Re: [问题]有关资料撷取部分的一个小问题
时间Wed May 14 14:32:19 2008
※ 引述《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