Re: Re: replacing blank lines

[KM]

# Create a file array of lines
while ($line = <FILE>){
    push (@array, $line);
}

ew.... just do:

my @array = <FILE>;

# Then control the output
foreach $index (@array){
    # if the line is completely blank dont print it.
    if ($index !~ /^\s*\n\s*$/)    {
        print "$index";
    }
}

ewwwww... use something more like:

for (@array) {
    print unless /^(\n|\s+)$/;
}

Even better, do it from the command line (see another node in this same thread)

Cheers,
KM