→ jlovet:不知道這個有沒有做到你要的拉 03/23 12:13
my.pl
#!/usr/bin/perl
#By ksc91u, welcome to use the code but keep this line please
while(<STDIN>){
unless(m/^@=/){
$data.=$_;
}else{
print "$data\n";
$data=$_;
}
}
print "$data\n";
test.txt
@=owrhf;ownj;rogihw;orif
wojgoirjg[owih[goiwj
wv;oirj;viwpo
@=12345
@=owijv;lwknmrfo;who
@=onv;owirnpovhwprou
測試結果
235-194:/tmp# perl my.pl <test.txt
@=owrhf;ownj;rogihw;orif
wojgoirjg[owih[goiwj
wv;oirj;viwpo
@=12345
@=owijv;lwknmrfo;who
@=onv;owirnpovhwprou
我要強調的是
你可以把整個50M的檔案讀進來一個變數,
然後用split去切,或對一個50M大小的變數做regexp
但是當然很慢,因為那要一個50M大小的變數
不管你用甚麼語言都一樣
Perl也有低階的IO
sysopen 跟seek之類的都有
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.123.103.59