Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Deparse -e"while(<>){'???'}"
    ------------------------------------
    LINE: while (defined($_ = <ARGV>)) {
        '???';
    }
    
  2. or download this
    $ perl -MO=Deparse -p -e"???"
    ------------------------------------
    ...
    continue {
        print $_;
    }