Help for this page

Select Code to Download


  1. or download this
    while ( <$client> ) {
  next unless /\S/;       # blank line
...
  else                     { last; }
  } continue {
  }
  2. or download this
    while ( <$client> ) {
  next unless /\S/;       # blank line
...
  else                     { last; }
  } continue {
  }
  3. or download this
    while ( <$client> ) {
  while( my @response = <$client>) {
...
    } continue {
    }
  }
  4. or download this
    ... snip ...
open(LOGFILE,>>"mylog.log") or die "Can't open mylog.log\n";
...
   }
   close $client;
}