Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;

...
  my $ok = ( defined $hash{$k} and $hash{$k} == $v ) ? 'OK' : 'WRONG' 
+;
  print join( "\t", $k, $ok, $v ), "\n";
}
  2. or download this
    peter    WRONG    1234
nick    OK    1111
john    WRONG    4567
...
george    OK    2222
antony    WRONG    5632
migel    WRONG    1209