Re: [問題] 請問如何寫到新檔案裡
※ 引述《robbor ( 工作中的貓頭鷹)》之銘言：
#!/usr/bin/perl
# sort.plx
use warnings;
use strict;
open FILE, "NC_000964.faa" or die $!;
open File,">1234.txt" or die $!;
my $lineno = 1;
while (<FILE>) {if (/^>/){
print File $lineno++;
print File ": $_">;
}
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.120.15.17
→
12/27 17:58, , 1F
12/27 17:58, 1F
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
3
5
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
