Help for this page

Select Code to Download


  1. or download this
    for my $key (keys %hashs) {
    if($hashs{$key}{$_} > 1 )
        print "$key - $hashs{$key}{$_} -> $_\n" for keys %{$hashs{$key
+}} ;
  }
  2. or download this
    Use of uninitialized value in numeric gt (>) at test.pl line 33, <$tes
+tdataset> line 7.