Help for this page

Select Code to Download


  1. or download this
    my $i = 1;
while ((my $line = <INHANDLE>) || $i--) {}
  2. or download this
    while (my $line = <INHANDLE>) {
} continue {
    dosomething() if eof(INHANDLE);
}