while ( (my $inputLine =<STDIN>) !~ /^\s*$/ ) { print $inputLine; } print "WOW null line (only spaces or nothing) - I've bailed!\n";
\s matches: space,\n,\r,\t,\f.
In reply to Re: die on carriage return
by Marshall
in thread die on carriage return
by muizelaar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |