#!/usr/local/bin/perl -n

# Creates .map files from the TIGER/Line .RT1 files, for
# 600.226 homework 10 (http://cs.jhu.edu/~jason/226/hw10).
#
# Usage examples:
#    rt1_to_map TGR24510.RT1 > baltimore.map
#    rt1_to_map *.RT1 > huge.map
#
# If that doesn't work, try putting "perl" at the start of the command:
#    perl rt1_to_map TGR24510.RT1 > baltimore.map
#    perl rt1_to_map *.RT1 > huge.map


$arm=sst(17,2);
$street=sst(19,30);
$streettype=sst(49,6);
$leftstart=sst(58,11); $leftend=sst(69,11);
$rightstart=sst(80,11); $rightend=sst(91,11);
$longstart=sst(191,9); $latstart=sst(200,9);
$longend=sst(210,9); $latend=sst(219,9);
print "$longstart\t$latstart\t$longend\t$latend\t$leftstart\t$rightstart\t$leftend\t$rightend\t$arm\t$street\t$streettype\n";
print STDERR "." if $. % 100 == 0;

sub END { print STDERR "\n"; }

sub sst {    # substring, trimmed
  local($start,$len)=@_; 
  local($a)=substr($_,$start,$len);
  $a=~s/^\s*//;
  $a=~s/\s*$//;
  $a=" " if $a eq ""; 
  return $a;
}