Help for this page

Select Code to Download


  1. or download this
    while( defined($_ = <>) && $_ ne "quit\n" ) {}
  2. or download this
    perl -MO=Deparse -le 'while($_ = <>) {}'
-e syntax OK

while (defined($_ = <ARGV>)) {
    ();
}