Re^3: Remove whitespace between lines

Try

while (my $line = <$fh_in>)   {       
  print $fh_out $line if ($line !~ /^\s*$/);
}
[download]

poj

Comment on Re^3: Remove whitespace between lines Download Code

Replies are listed 'Best First'.
Re^4: Remove whitespace between lines by wrkrbeee (Scribe) on Feb 03, 2015 at 18:55 UTC
That's it, works great! Appreciate your interest and patience! :-)	[reply]
Re^5: Remove whitespace between lines by Marshall (Canon) on Feb 04, 2015 at 01:04 UTC
A more normal way to do this is to skip the blank lines and then process those lines further. `while (my $line = <$fh_in>) { next if ($line ~ m/^\s*$/); #skip blank lines #more processing of this non-blank line }` [download]	[reply] [d/l]