Re: Removing linefeeds from part of a file

in reply to Removing linefeeds from part of a file

{   local $\ = "\n";
    while (<>) {
        chomp;
        if (/^ENDDESCRIPTION$/) {
            print "\n";
            $\ = "\n";
        }
        print;
        $\ = "" if /^DESCRIPTION$/;
    }
}
[download]

-- Abigail

Comment on Re: Removing linefeeds from part of a file Download Code

In Section Seekers of Perl Wisdom