●高速料金検索結果整形プログラム


どらプラ　http://www.driveplaza.com/
高速料金検索結果をテキストファイルに貼り付けた物(a.txt) を入力すると
下記のような表に整形する。
18:00 広島東 188分 279.1 km
21:08 神戸ＪＣＴ 22分 31.6 km
23:12 東海

perl car.pl a.txt > b.txt


[car.pl] --- 8< ---- car.pl --- 8< ---
#どらプラ　http://www.driveplaza.com/
#高速料金検索結果をテキストファイルに貼り付けた物を入力すると
# 下記のような表に整形する。
#18:00 広島東 188分 279.1 km
#21:08 神戸ＪＣＴ 22分 31.6 km
#23:12 東海

while (<>) {
if (/^(\w+\:\w+)　([^(]*)/) {
print "\n$1\t$2\t";
} elsif (/^(\d*分)/) {
print "$1\t";
} elsif (/^渋滞(\d*分)/) {
print "$1 min\t";
} elsif (/^\[([\d\.]+)k/) {
print "$1 km\t";
}
}
print "\n";