#!/usr/local/bin/perl
$min = 3; $html = 1;
$price = <<"EOF";
距離	電話____	平日			土日	祝祭日
域内	________	昼間	夜間	深夜	昼間	夜間	深夜
	NTT_____	180	180	240	180	180	240
	公衆____	60	60	80	60	60	80
	DDI PHS_	60	60	70	60	60	70
	Astel PHS	60	60	90	60	60	90
	NTT PHS_	60	60	90	60	60	90
	Docomoデジタル	14	23	35	25.5	25.5	35
隣接	________	昼間	夜間	深夜	昼間	夜間	深夜
	NTT_____	90	90	120	90	90	120
	公衆____	42.5	42.5	55	42.5	42.5	55
	DDI PHS_	45	45	60	45	45	60
	Astel PHS	45	45	60	45	45	60
	NTT PHS_	60	60	90	60	60	90
	Docomoデジタル	14	23	35	25.5	25.5	35
20kmまで		昼間	夜間	深夜	昼間	夜間	深夜
	NTT_____	90	90	120	90	90	120
	公衆____	42.5	42.5	55	42.5	42.5	55
	DDI PHS_	45	45	60	45	45	60
	Astel PHS	45	45	60	45	45	60
	NTT PHS_	60	60	90	60	60	90
	Docomoデジタル	14	23	35	25.5	25.5	35
30kmまで		昼間	夜間	深夜	昼間	夜間	深夜
	NTT_____	45	45	60	45	45	60
	公衆____	28.5	28.5	38	28.5	28.5	38
	DDI PHS_	45	45	60	45	45	60
	Astel PHS	45	45	60	45	45	60
	NTT PHS_	45	45	60	45	45	60
	Docomoデジタル	14	23	35	25.5	25.5	35
40kmまで		昼間	夜間	深夜	昼間	夜間	深夜
	NTT_____	36	36	60	36	36	60
	公衆____	23	23	28	23	23	28
	DDI PHS_	26	30	45	30	30	45
	Astel PHS	26	30	45	30	30	45
	NTT PHS_	36	36	45	36	36	45
	Docomoデジタル	14	23	35	25.5	25.5	35
60kmまで		昼間	夜間	深夜	昼間	夜間	深夜
	NTT_____	45	45	60	45	45	60
	公衆____	17	17	21	17	17	21
	DDI PHS_	26	30	45	30	30	45
	Astel PHS	26	30	45	30	30	45
	NTT PHS_	36	36	45	36	36	45
	Docomoデジタル	14	23	35	25.5	25.5	35
80kmまで		昼間	夜間	深夜	昼間	夜間	深夜
	NTT_____	22.5	30	45	30	30	45
	公衆____	12.5	16.5	18	16.5	16.5	18
	DDI PHS_	18	26	36	26	26	36
	Astel PHS	18	26	36	26	26	36
	NTT PHS_	14	20	23	20	20	23
	Docomoデジタル	14	23	35	25.5	25.5	35
100kmまで		昼間	夜間	深夜	昼間	夜間	深夜
	NTT_____	16.5	22.5	30	22.5	22.5	30
	公衆____	11	16.5	18	16.5	16.5	18
	DDI PHS_	18	26	36	26	26	36
	Astel PHS	18	26	36	26	26	36
	NTT PHS_	14	14	16.5	14	14	16.5
	Docomoデジタル	14	23	35	25.5	25.5	35
120kmまで		昼間	夜間	深夜	昼間	夜間	深夜
	NTT_____	16.5	22.5	30	22.5	22.5	30
	公衆____	9	15	16.5	15	15	16.5
	DDI PHS_	15	20	26	20	20	26
	Astel PHS	17	20	26	20	20	26
	NTT PHS_	14	14	16.5	14	14	16.5
	Docomoデジタル	14	23	35	25.5	25.5	35
160kmまで		昼間	夜間	深夜	昼間	夜間	深夜
	NTT_____	16.5	22.5	30	22.5	22.5	30
	公衆____	9	15	16.5	15	15	16.5
	DDI PHS_	15	20	26	20	20	26
	Astel PHS	17	20	26	20	20	26
	NTT PHS_	14	14	16.5	14	14	16.5
	Docomoデジタル	14	23	35	25.5	25.5	35
160km以上		昼間	夜間	深夜	昼間	夜間	深夜
	NTT_____	16.5	18	22.5	18	18	22.5
	公衆____	8.5	12.5	14	12.5	12.5	14
	DDI PHS_	15	17	20	17	17	20
	Astel PHS	15	17	20	17	17	20
	NTT PHS_	14	14	16.5	14	14	16.5
	Docomoデジタル	14	23	35	25.5	25.5	35

夜間は7時から11時、深夜は11時から午前8時
EOF

$table = "<table border=1 cellspacing=0>\n";
if($html) {
    if(open(FD,"-|")) {
	print "<title>table</title>\n";
	while(<FD>) {
	    chop;
	    s/_//g;
	    if(/\t/) {
		print $table if(! $in_table); $in_table=1;
		print "<tr><td>";
		s/\t/<\/td><td>/g;
		print;
		print "</td></tr>\n";
	    } else {
		print "</table>\n" if($in_table); $in_table=0;
		print $_,"<br>\n"; 
	    }
	}
	print "</table>\n" if($in_table);
	exit 0;
    }
}

print " 10円でかけられる秒数(PHSは、これにさらに一回10円かかります)\n";
print $price;

print "\n$min分かけるのにかかるお金\n";

while($price =~ s/(.*)\n//) {
    next if ($1 eq '');
    @price = split("\t",$1);
    if($#price<=1) { print $1,"\n"; next; }
    print shift(@price); print "\t";
    $base_cost = ($price[0] =~ /PHS/)?10:0;
    print shift(@price); 
    for(@price) {
	if($_ > 0) {
	    $cost =  $min*60*10/$_+$base_cost;
	    printf("\t%5.1f",$cost);
	} else {
	    print("\t",$_);
	}
    }
    print "\n";
}
