Select Code to Download

Not ok cases
...
numbers are too big
LAT: 47.9805 LON: -186.5586

1:   74         if(($ENG >0) && ($FIN > 0)) {
     75                 print "mixed languages\n";
...
    171                 } else {
    172                         print "too big numbers\n";
    173                 }

        elsif ( my @keys = grep $H{ $_ } > 1, keys %H ) {
                for ( @keys ) {
...
                        $err++
                }
        }

     30         my %H;
...
...
     67         $H{W} = ($_ =~ tr/W//);
     68         $H{N} = ($_ =~ tr/N//);
     69         $H{S} = ($_ =~ tr/S//);

        my %H = (
                E => tr/E//,
...
                N => tr/N//,
                S => tr/S//,
                );

      7         $in =~ s/[NWSEIPL]//g;

...

                tr/IP//d;