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

woodie

改进一下，不用临时文件了：

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(PIPE, "|perl -") or die "Error perl interpreter.\n";
   
6. print PIPE qq[#perl scprit through pipe
   
7. open(R, "<$file") or die "Cannot open file $file to read.\\n";
   
8. open (W, "+<$file") or die "Cannot open file $file to write.\\n";
   
9. while(<R>){
   
10.     $cmd;
    
11. }
    
12. truncate(W, tell(W));];
    
13. close(PIPE);
    

复制代码

小渔儿

dd of=file conv=notrunc <&3
dd >&3


这个：|是什么意思啊，没看明白

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 编辑 ]

r2007

原帖由 woodie 于 2006-8-30 15:46 发表
唉！脑袋短路了！我29的代码性能不好的原因是在循环中用了eval命令，其实直接的解决办法就是把eval拿到循环之外，当时竟然没想到这一点，所以才有了30楼、31楼的代码。画蛇添足了！惭愧呀。[img]http://bbs.china ...

这次的代码漂亮^_^

苏蓉蓉

呵呵，好贴！

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

r2007

忽然想起来，cu有专门的perl版。
woodie兄为何发到此处，怪不得老瓦连个标记都没给打
看来shell版人气旺阿。

woodie

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

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

waker

不打标是免得没有耐心的人真的以为perl没有临时文件，你没看加了分么？

woodie

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