Help for this page

Select Code to Download


  1. or download this
    my( $fh, $name ) = @_;
  2. or download this
    while( my( $name ) = $names =~ m/([a-z0-9_]+)/isg ) {
    lookup( \*LOOKUP, $name );
}
  3. or download this
    while($names =~ m/([a-z0-9_]+)/isg ) {
    my $name = $1;
    lookup( \*LOOKUP, $name );
}