in reply to Re: removing blank lines from files
in thread removing blank lines from files

Change 
next if /^\s+$/;

[download]
to 
next if /^\s*$/;

[download]
and it will catch empty lines and lines containing only whitespace.

Replies are listed 'Best First'.
Re: Re: Re: removing blank lines from files
by mirod (Canon) on Jun 20, 2002 at 13:35 UTC

    Actually Perl DWIMs properly here, and /^\s+$/ catches empty lines. The $ is quite magic, if the \n at the end of the string/line is matched then $ matches the empty end-of-string, if the \n is not matched then $ matches it, plus the end-of-string.

    You can test it with this code:

    my $string="12\n";
print 'matches ^\d+\n$' . "\n" if( $string=~ /^\d+\n$/);
print 'matches ^\d+$' . "\n"   if( $string=~ /^\d+$/);

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom