KIMUKAZU blog

　法令条文の条項表記には、漢数字が用いられている。その一例として民法を参考文献[1]に示す。
　しかしながら、法令に用いられている漢数字の表記は、日常ではあまり使用されないので、一般人である私等には少々読みにくい。
　そこで、法令条文の漢数字表記を通常の数字表記に変換するプログラムを検討してみた。
　上記と同様な変換プログラムは、既に多くの例[2-5]が公開されているが、ここでは、perl[6]を用いた簡単なプログラム例を紹介する。
　プログラムの詳細な説明は略すが、Windows環境であれば、フリーのStrawberry Perl[6]をインストールした後、以下に記したperlスクリプト（UTF-8で保存すること）を実行することで法令条文の漢数字・数字変換が可能になる。

--
#!/usr/bin/perl -w
#
# kanji2num_win.pl ... scriptはutf-8で保存
#
# 入力/出力ファイルは、Shift-JISのテキストファイル

use strict;
use warnings;

use utf8;
use Encode;

=pod
my $enc_os = 'cp932';
binmode STDIN, ":encoding($enc_os)";
binmode STDOUT, ":encoding($enc_os)";
binmode STDERR, ":encoding($enc_os)";
=cut

die "usage: perl $0 <inputfile>\n" if (@ARGV !=1);

my $filename = $ARGV[0];
my $filename_new = $filename;
$filename_new =~ s/.txt/_new.txt/;

print "\n*** (kanji2num_win.pl) ***\n";
print "input :$filename\n";
print "output:$filename_new\n";
print "Processing... Wait minuetes.\n";

open (IN, "<", $filename) or die "Error n";
open (OUT,">", $filename_new) or die "Error \n";

while (<IN>) {
my $line;
my $trans;
my $i;
my @lists;

# １行分を$lineに代入する。
$line = decode('shiftjis', $_);

# 号はタブで字下げする
$line =~ s/^([一二三四五六七八九十])/\t$1/g;

# "章"を変換する
@lists = ();
$trans = "";
$i = "";
push( @lists, ($line=~m/(第?[一二三四五六七八九〇十百千]+章[の]?[一二三四五六七八九〇十]*[の]?[一二三四五六七八九〇十]*)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/第?[一二三四五六七八九〇十百千]+章[の]?[一二三四五六七八九〇十]*[の]?[一二三四五六七八九〇十]*/$trans/;
}

# "条"を変換する
@lists = ();
$trans = "";
$i = "";
push( @lists, ($line=~m/(第?[一二三四五六七八九〇十百千]+条[の]?[一二三四五六七八九〇十]*[の]?[一二三四五六七八九〇十]*)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/第?[一二三四五六七八九〇十百千]+条[の]?[一二三四五六七八九〇十]*[の]?[一二三四五六七八九〇十]*/$trans/;
}

# "項"の見出しを変換
@lists = ();
push( @lists, ($line=~m/(^[一二三四五六七八九〇十百]+)/) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/^[一二三四五六七八九〇十百]+/$trans/;
}

# "項"を変換
@lists = ();
push( @lists, ($line=~m/(第?[一二三四五六七八九〇十百]+項)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/第?[一二三四五六七八九〇十百]+項/$trans/;
}

# "号"の見出しを変換
@lists = ();
push( @lists, ($line=~m/(^\t[一二三四五六七八九〇十百]+)/) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/^\t[一二三四五六七八九〇十百]+/$trans/;
}

# "号"を変換
@lists = ();
push( @lists, ($line=~m/(第?[一二三四五六七八九〇十百]+号)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/第?[一二三四五六七八九〇十百]+号/$trans/;
}

# "年"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九〇十百千]+年)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九〇十百千]+年/$trans/;
}

# "月"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九〇十]+月)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九〇十]+月/$trans/;
}

# "日"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九〇十百千]+日)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九〇十百千]+日/$trans/;
}

# "億、万"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九十百千]+[億万])/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九十百千]+[億万]/$trans/;
}

# "円"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九〇十百千]+円)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九〇十百千]+円/$trans/;
}

# "編"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九〇十百千]+編)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九〇十百千]+編/$trans/;
}

# "節"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九〇十百千]+節)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九〇十百千]+節/$trans/;
}

# "款"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九〇十百千]+款)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九〇十百千]+款/$trans/;
}

# "目"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九〇十百千]+目)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九〇十百千]+目/$trans/;
}

# "歳、才"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九〇十百]+[歳才])/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九〇十百]+[歳才]/$trans/;
}

# "級"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九〇十百千]+級)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九〇十百千]+級/$trans/;
}

# "時、分"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九〇十百千]+[時分])/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九〇十百千]+[時分]/$trans/;
}

# "人"を変換
@lists = ();
push( @lists, ($line=~m/([一二三四五六七八九〇十百千]+人)/g) );
foreach $i (@lists) {
$trans = &func_TransKansuuji( $i );
$line =~ s/[一二三四五六七八九〇十百千]+人/$trans/;
}

# 変換の終わった行をファイルに書き込む
$line = encode('shiftjis', $line);
print OUT $line;
}
close(IN);
close(OUT);
print "Completed.\n";

exit;

####################################
# Sub func_TransKansuuji
# 漢数字を全角算用数字に変換する
# ０-９９９９まで対応
####################################
sub func_TransKansuuji{

my $val;
$val = $_[0];

# 漢数字を変換する
$val =~ s/一/１/g;
$val =~ s/二/２/g;
$val =~ s/三/３/g;
$val =~ s/四/４/g;
$val =~ s/五/５/g;
$val =~ s/六/６/g;
$val =~ s/七/７/g;
$val =~ s/八/８/g;
$val =~ s/九/９/g;
$val =~ s/〇/０/g;

#
# 十の変換
#

# (十を削除)　２十１、、、９十９
$val =~ s/([２３４５６７８９])十([１２３４５６７８９])/$1$2/g;

# (十を０に)　２十、３十、、、９十
$val =~ s/([２３４５６７８９])十/$1０/g;

# (十を１に)　十１－十９
$val =~ s/十([１２３４５６７８９])/１$1/g;

# (十を１０に)　十
$val =~ s/十/１０/g;

#
# 百の変換
#

# (百を削除)　２百１０、、、、２百９９
$val =~ s/([２３４５６７８９])百([１２３４５６７８９][１２３４５６７８９０])/$1$2/g;
# (百を０に)　２百１ー２百９、、９百１－９百９
$val =~ s/([２３４５６７８９])百([１２３４５６７８９])/$1０$2/g;

# (百を００に)２百、３百、、、９百
$val =~ s/([２３４５６７８９])百/$1００/g;

# (百を１に)　百１０、百１１、、、百９９
$val =~ s/百([１２３４５６７８９][１２３４５６７８９０])/１$1/g;

# (百を１０に)　百１－百９
$val =~ s/百([１２３４５６７８９])/１０$1/g;

# (百を１００) 百
$val =~ s/百/１００/g;

#
# 千の変換
#

# (千を削除)２千１００、、９千９９９
$val =~ s/([２３４５６７８９])千([１２３４５６７８９][１２３４５６７８９０][１２３４５６７８９０])/$1$2/g;

# (千を０に)２千１０ー３千９９、、、９千９９
$val =~ s/([２３４５６７８９])千([１２３４５６７８９][１２３４５６７８９０])/$1０$2/g;

# (千を００に)２千１ー２千９、、９千１－９千９
$val =~ s/([２３４５６７８９])千([１２３４５６７８９])/$1００$2/g;

# (千を０００に)２千、３千、、９千
$val =~ s/([２３４５６７８９])千/$1０００/g;

# (千を１に)千１００－千９９９
$val =~ s/千([１２３４５６７８９][１２３４５６７８９０][１２３４５６７８９０])/１$1/g;

# (千を１０に)千１０ー千９９
$val =~ s/千([１２３４５６７８９][１２３４５６７８９０])/１０$1/g;

# (千を１００に)千１ー千９
$val =~ s/千([１２３４５６７８９])/１００$1/g;

# (千を１０００に) 千
$val =~ s/千/１０００/g;

return $val;
}
--

参考文献
(1)民法
(2)法令条文の漢数字を算用数字に変換
(3)漢数字をアラビア数字にスマートに変換する
(4)オートメーターを使って文字変換はできないものでしょうか？
(5)漢数字に変換
(6)Strawberry Perl for Windows