Help for this page

Select Code to Download


  1. or download this
    use strict; use warnings; 
use Data::Dumper; 
...
    return $result
    
}
  2. or download this
    First
$VAR1 = {
...
Use of uninitialized value in numeric comparison (<=>) at 1194053.pl l
+ine 66.
Use of uninitialized value in numeric comparison (<=>) at 1194053.pl l
+ine 66.
Use of uninitialized value in numeric comparison (<=>) at 1194053.pl l
+ine 66.
  3. or download this
    for(my $k=0; $k<length($key)-1; $k++){