Dave's Bus Conversion Maintenance Log

<: open(LIST,") { chomp; s/^\s*#.*//; next unless /\S/; if (m|^\s*\d+/\d+(/[\d\?]+)?\s*$|) { print " \n" if $not_first; print " \n" if $not_first++; print " \n"; print "

$_	\n"; } else { print $_,"\n"; } } close LIST; :>

Back