Help for this page

Select Code to Download


  1. or download this
    $  perl -e'print 0' | perl -e'while ($line = <>) { print "\$line=<$lin
    +e> \$line=<" . ($line ? "true" : "false") . "> defined=<" . (defined(
    +$line) ? "true" : "false") . ">\n"};'
    $line=<0> $line=<false> defined=<true>
    
  2. or download this
    $ perl -e'print 0' | perl -e'while ($line = readline(*STDIN)) { print 
    +"\$line=<$line> \$line=<" . ($line ? "true" : "false") . "> defined=<
    +" . (defined($line) ? "true" : "false") . ">\n"};'
    $line=<0> $line=<false> defined=<true>
    
  3. or download this
    use strict;
    use warnings;
    ...
      #print "wrapped_readline: <$sLine>\n";
      return $sLine;
    }