#!/usr/bin/perl -I /u/owend/perl/cpan/lib/perl5 use Geo::Coordinates::OSGB qw(grid_to_ll); $stncoords="stationcoords.txt"; $out="todo.html"; open(S, "<$stncoords") or die "$!\n"; open(O, ">$out") or die "$!\n"; select O; print < Todo list

Todo list

EOJ while() { if (/^n/) { ($stat,$name,$e,$n,$crs,$date)=split(','); ($lat,$lon) = grid_to_ll($e,$n); $goourl="https://www.google.co.uk/maps/\@$lat,$lon,827m/data=!3m1!1e3"; $bingurl="http://bing.com/maps/default.aspx?cp=$lat~$lon&style=h&lvl=17"; $smurl="http://www.streetmap.co.uk/map.srf?x=$e&y=$n&z=120"; $nrurl="http://www.nationalrail.co.uk/SME/html/NRE_$crs/plan.html"; $wpurl="http://en.wikipedia.org/wiki/${name}_railway_station"; print qq{}; print qq{}; print qq{}; print qq{}; print qq{}; print qq{}; print qq{}; print qq{\n}; } }
StationDateGMapsBingStreetmapNREWikipedia
$name$dateGMapsBingStreetmapNREWikipedia