Perl 小品集 ─ yubinbango

#!/usr/bin/perl
# yubinbango.pl

@kenmei = qw(北海道 青森県 岩手県 宮城県 秋田県 山形県 福島県
茨城県 栃木県 群馬県 埼玉県 千葉県 東京都 神奈川県 新潟県 富山県 石川県
福井県 山梨県 長野県 岐阜県 静岡県 愛知県 三重県 滋賀県 京都府 大阪府
兵庫県 奈良県 和歌山県 鳥取県 島根県 岡山県 広島県 山口県 徳島県 香川県
愛媛県 高知県 福岡県 佐賀県 長崎県 熊本県 大分県 宮崎県 鹿児島県 沖縄県);

&stage_1;
&stage_2;
&stage_3;
exit;

# データを準備する
sub stage_1
{
system "lha -x ken_all.lzh";
system "wkf -e ken_all.csv > ken_all.euc";

open INP, "ken_all.euc" or die $!;
open OUT, ">yubin.tmp" or die $!;

foreach $line (<INP>) {
    chomp $line;
    @data = split /","/,$line;
    ($data[7], $dummy) = split /",/, $data[7];
    $number = $data[1];
    $number =~ /([\d][\d][\d])([\d][\d][\d][\d])/;
    if ($data[7] eq "以下に掲載がない場合") {
        print OUT "$1-$2 $data[5]$data[6]\[$data[2]$data[3]\]$data[7]\n";
        }
    else {
        print OUT "$1-$2 $data[5]$data[6]$data[7]\[$data[4]\]\n";
        }
    }
close OUT;
close INP;
print "Stage 1 is completed.\n";
}

# 県ごとのデータファイルをつくる
sub stage_2
{
open INP, "yubin.tmp" or die $!;

$n = 0;
$old = "";
foreach $line (<INP>) {
    chomp $line;
    if ($line =~ /$kenmei[$n]/) {
        $ken = $&;
        }
    # 都道府県名が変わったら新しいファイルをつくる
    if ($ken ne $old) {
        if ($n > 0) {
            close OUT;
            }
        $ken_number = &put_zero ($n++);
        open OUT, ">ken$ken_number.tmp";
        }
    $line =~ s/$ken//;
    print OUT "$line\n";
    $old = $ken;
    }
close OUT;
close INP;
print "Stage 2 is completed.\n";
}

# 各県のデータから市町村のファイルをつくる
sub stage_3
{
$number = 0;
while ($number < 47) {
    &shifile ($number++);
    }
print "Stage 3 is completed.\n";
}

# 市町村のファイルをつくる
sub shifile
{
local ($number) = @_;

# 県ごとにディレクトリをつくる
$ken_number = &put_zero ($number);
if (!(-d $ken_number)){
    system "mkdir $ken_number";
    }
# 県ごとの索引ファイルをつくる
open INDEX, ">./$ken_number/index.html" or dir $!;
&page_top ($ken_number);
# 各県のデータファイルを開く
open INP, "ken$ken_number.tmp" or die $!;

$shi_num = 0;
$line_num = 0;
foreach $line (<INP>) {
    chomp $line;
    # 新しい市町村を見つける
    local ($zip, $address) = split / /, $line;
    local ($machi, $check) = split /\[/, $address;
    # キーワードは「以下に掲載がない場合」
    if ($check =~ "以下に掲載がない場合") {
        $shi = $machi;
        # 市町村別のファイルの終了
        if ($shi_num > 0) {
            print DATA "</body>\n</html>\n";
            close DATA;
            }
        $shi_number = &put_zero_2 ($shi_num++);
        # 県の検索ファイルに書き込む
        if ($line_num % 5 == 0 and $line_num > 0) {
            print INDEX "</tr><tr>\n";
            }
        print INDEX "<td>　<a href=\"$shi_number.html\">$shi</a>　</td>\n";
        $line_num++;
        # 市町村別のファイルをつくる
        open DATA, ">./$ken_number/$shi_number.html" or die $!;
        &page_top_2 ($ken_number);
        }
    # 市町村別のファイルにデータを書き込む
    $line =~ s/$shi//;
    print DATA "$line<br>\n";
    }
# 市町村別のファイルの終了
print DATA "</body>\n</html>\n";
close DATA;
# 県別の検索ファイルの終了
print INDEX << "EOM";
</tr>
</table>
</body>
</html>
EOM
close INDEX;
# 県データファイルの終了
close INP;
}

sub page_top
{
local ($ken_number) = @_;

print INDEX << "EOM";
<html>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=euc-jp">
<title>$kenmei[$ken_number]</title>
</head>
<body>
<h1><a href="../index.html">郵便番号</a> &gt; $kenmei[$ken_number]</h1>
<table>
<tr>
EOM
}

sub page_top_2
{
local ($ken_number) = @_;

print DATA << "EOM";
<html>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=euc-jp">
<title>$kenmei[$ken_number]$shi</title>
</head>
<body>
<h1><a href="../index.html">郵便番号</a> &gt; <a href="index.html">$kenmei[$ken_number]</a> &gt; $shi</h1>
EOM
}

sub put_zero
{
local ($number) = @_;

if ($number < 10) {
    $number = "0$number";
    }
return $number;
}

sub put_zero_2
{
local ($number) = @_;

if ($number < 10) {
    $number = "00$number";
    }
elsif ($number < 100) {
    $number = "0$number";
    }
return $number;
}


[INDEX]