Help for this page

Select Code to Download


  1. or download this
    my $line;
    while ($line = <>) {
        ...
    
  2. or download this
    $ perl -MO=Deparse -e 'while (<>) { /(.)/ }'
    while (defined($_ = readline ARGV)) {
    ...
        };
    }
    -e syntax OK