Help for this page

Select Code to Download


  1. or download this
    while (<$fh>) { ... }
  2. or download this
    while (defined($_ = <$fh>)) { ... }
  3. or download this
    while (<$fh>) { ... }
  4. or download this
    while (<STDIN>) {
   s/\s+$//;
   last if /^(?:exit|quit)?$/i;
   ...
}