zip

update_zip.pl

my $zip;
open my $fh, "<:encoding(cp932)", $ken;
while (my $row = $csv->getline($fh)) {
    next if $zip->{$row->[2]};
    $zip->{$row->[2]}++;
    $model->insert( 'minotaur_zip', {
        zip => $row->[2],
        pref => substr($row->[0], 0, 2),
        address1 => $row->[7],
        address2 => $row->[8]
    } );
}
close $fh;