(DTPtechNote:358) Re: 重複行の削除

[のもと <anonymous at unknown-host>]

>空行の連続を1つにまとめたいと
>お友達から相談された。

最初のワンライナーもしょうちゃんのスクリプトも
「空行の連続を1つにまとめたい」
とは違うことをやっていますけど。
「空行の連続を1つにまとめたい」だけなら
↓のような感じじゃないでしょうか。

#!perl -w

$/ = "";
for $file (@ARGV) {
	open IN, $file or die "can't open $file\n";
	open OUT, ">$file.new" or die "can't open $file.new\n";
	while(<IN>){
		my $n = chomp;
		$n = 2 if $n > 2;
		print OUT $_, "\n"x$n;
	}
	close IN;
	close OUT;
}