Great Western Coffee Shop

open FH,"1x01.html";
read FH,$content,-s "1x01.html";
@places = $content =~ /\[([A-Z]{3})\]/g;
print @places;

open FH,"rstats2015.txt";
while ($xs = <FH>) {
	($tlc, $lat, $long) = (split "\t",$xs)[1,4,5];
	if ($lat ne "NULL" and $long ne "NULL") {
		$sinfo{$tlc} = [$lat,$long] ;
	}
	print ("$tlc $lat $long\n");
	}

foreach $goto (@places) {
	print ($sinfo{$goto});
	if ($sinfo{$comefrom} and $sinfo{$goto}) {
		$x1 = $sinfo{$comefrom}[0];
		$y1 = $sinfo{$comefrom}[1];
		$x2 = $sinfo{$goto}[0];
		$y2 = $sinfo{$goto}[1];
		$dleg = sqrt((abs($x1-$x2)*50)**2 + (abs($y1-$y2)*75)**2);
		print ("Have $comefrom $goto $dleg\n");
		$acf += $dleg;
		$good++;
	} else {
		print ("Ooops $comefrom $goto\n");
		$bad++;
	}
	$comefrom = $goto;
}

print ("$good legs measured, $bad legs skipped, milage is $acf\n");
$takes = $acf / 768 / 24;
print ("takes $takes days\n")