ATM跨行轉帳金融機構代號 CSV 資料來源: http://www.esunbank.com.tw/event/announce/BankCode.htm 更新日期：102年04月08日

bank.pl

#!/usr/bin/env perl
use LWP::Simple qw(get);
use Encode;
use utf8;
use JSON;

binmode STDOUT, ":utf8";

$content = get 'http://www.esunbank.com.tw/event/announce/BankCode.htm';
$content = Encode::decode('big-5', $content);

sub banktype { 
    my $c = int shift;
    return '銀行' if $c == 108 || $c == 118 || $c == 147 || $c == 151;
    return '信用合作社' if $c == 104 || $c == 106 || $c == 114 || $c == 115;
    return '銀行' if  $c < 104 || ( $c >= 803 && $c <= 822 );
    return '信用合作社' if $c >= 104 && $c <= 224;
    return '農會';
}

my @banks = ();
my $bankcode;
my $bankname;
while ( $content =~ m#<td.*?>(.*?)</td>#g ) {
    my $cell = $1;
    if ( $cell =~ /(\d+)/ ) {
        # print $cell, " ";
        $bankcode = $1;
    } else {
        $bankname = $cell;
        $bankname =~ s/^\s*//g;
        $bankname =~ s/\s*$//g;
        if ( $bankcode && $bankname ) {
            push @banks, [ $bankcode , $bankname , banktype($bankcode) ];
            $bankname = undef;
            $bankcode = undef;
        }
        # print $cell, "\n";
    }
}

@banks = sort { $a->[0] <=> $b->[0] } @banks;
print join(",", '銀行代號', '銀行名稱', '類型') . "\n";
for ( @banks) {
    print join(',', @$_), "\n";
}

bankcode.csv