スレタイトルとはあまり関係ないが、自宅に住民票コードが届いたので、
さっそく下のような下手糞Perlプログラムでチェックしてみた。
当たり前だが、家族全員Goodだった。

しかしこの通知票、下からライトあてたら開封しないで外からコード
読めるじゃん…。いいのかこんなんで >武蔵野市役所

$code = shift;
die "Too short: $code\n" unless (length($code) == 11);
@v = split(//, $code);
$sum = $v[9]*2 + $v[8]*3 + $v[7]*4 + $v[6]*5 + $v[5]*6
          + $v[4]*7 + $v[3]*2 + $v[2]*3 + $v[1]*4 + $v[0]*5;
$chk = 11 - ($sum % 11); $chk = 0 if ($chk >= 10);
if ($v[10] != $chk) {
        print "Invalid: sum=$sum, valid last digit=$chk, but $v[10]\n";
} else {
        print "Good.\n";
}