Larry Moore wrote:
>
> I want to slurp a file and make multiple blank lines into single blank
> lines. Here is my code:
>
> [snip code]
>
> I have tried a number of substitutions but haven't found the correct
> formulation.
#! perl -w
use strict;
my $file = 'test.fmt';
open IN, $file or die "Cannot open $file: $!";
open OUT, '>> test.txt' or die "Cannot open test.txt: $!";
print OUT "$file\n\n";
{
local $/ = ''; # paragraph mode
print OUT <IN>;
}
close IN;
print OUT '******************';
close OUT;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
