[原创]perl在编辑巨大文件时的应用

woodie

唉！脑袋短路了！我29的代码性能不好的原因是在循环中用了eval命令，其实直接的解决办法就是把eval拿到循环之外，当时竟然没想到这一点，所以才有了30楼、31楼的代码。画蛇添足了！惭愧呀。

1. #!/usr/bin/perl
   
2. die "Usage: $0 perl-condition file\n" if $#ARGV != 1;
   
3. $cmd = "print W unless $ARGV[0]";
   
4. $file = $ARGV[1];
   
5. open R, "<$file" or die "Cannot open file $file to read\n";
   
6. open W, "+<$file" or die "Cannot open file $file to write\n";
   
7. eval "while(<R>){ $cmd;}";
   
8. truncate( W, tell(W) );
   

复制代码

----------------------
赶紧再“装修”下子。^_^

[ 本帖最后由 woodie 于 2006-8-30 16:11 编辑 ]

woodie

改写一下，用来删行的一部分，有的朋友可能用的着。

1. #!/usr/bin/perl
   
2. die "Usage: $0 pattern-to-del file\n" if $#ARGV != 1;
   
3. $cmd = "s/$ARGV[0]//g;print W";
   
4. $file = $ARGV[1];
   
5. open R, "<$file" or die "Cannot open file $file to read\n";
   
6. open W, "+<$file" or die "Cannot open file $file to write\n";
   
7. eval "while(<R>){ $cmd;}";
   
8. truncate( W, tell(W) );
   

复制代码

将上面文件存为pdw，
chmod +x pdw

用法：./pdw 要删除部分的正则表达式 处理的文件名
注意因为用了g修饰符，所有匹配正则的东西都会删除。
举例：
删除所有的单词hello:
./pdw '\bhello\b' ur-file
删除所有的除号/：
./pdw '\/' ur-file

woodie

今天的网络真是气死人！又发重了。:—(
To 七兄：对shell版的兄弟们有用就行了。对perl版来说怕没多大价值。^_^

[ 本帖最后由 woodie 于 2006-9-13 16:20 编辑 ]

woodie

呵呵，没关系没关系，打不打标的没什么紧要。^_^大家一起讨论就好。