作者jlovet (阿我真是猜不透XD)
看板perl
标题Re: [问题] 用RegExp将字串切割
时间Fri Mar 23 12:12:58 2007
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
1F：→ jlovet:不知道这个有没有做到你要的拉 03/23 12:13