perl中如何删除所有空行

huanghaojie

#!/usr/bin/perl

use strict;
use warnings;

my $File1="\/tmp\/1";
my $File2="\/tmp\/mon2\.$$";
open IN,"<$File1" or die "can't open file: $File1,$!";
open OUT ,">$File2" or die "can't open file: $File2,$!";

while(<IN>){
next unless /\S/;
tr/\r//d;
#print OUT $_ || die("$File2: print failed");
print OUT $_;
}
close(IN);
close(OUT);

这样的可以的，但感觉太复杂了，有什么简单方法
在shell中只要sed一下。

MMMIX

perl -ne 'print unless m/^\s*$/' < input > output

huanghaojie

原帖由 MMMIX 于 2009-3-3 23:38 发表
perl -ne 'print unless m/^\s*$/' < input > output

放在脚本里呢

MMMIX

原帖由 huanghaojie 于 2009-3-4 11:28 发表

放在脚本里呢

perldoc perlrun 看看 Perl 怎么解释 -n 的

hitsubunnu

1. 
   
2. perl -pi.bak -e ’s/^\s+$//;’ input.txt
   

复制代码

MMMIX

原帖由 hitsubunnu 于 2009-3-4 12:05 发表

perl -pi.bak -e ’s/^\s+$//;’ input.txt

嗯，也是个办法。