Help for this page

Select Code to Download

Select or download this

        if (length $link->{LatitudLongitud} > 5) { 
            if (!$seen->{$link->{LatitudLongitud}}) { 
                push @{$records->{$link->{LatitudLongitud}}}, $link->{
+ID};
...
        }

        $links->{$link->{ID}} = $link;

Select or download this

  map {   
        
        my ($lat,$long) = split ",", $_;
...
                }

   } keys %$seen;