Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
  my ($name, $code) = split(/\t/);
 
}
  2. or download this
      # Still untested
  if ( !defined( $hash{$name} ) ) {
    $hash{$name} = $code;
  }
  3. or download this
      # Still untested
  if ( !defined( $hash{$name} ) or $code < $hash{$name} ) {
    $hash{$name} = $code;
  }