Diary/2009-6-19の変更点

• 追加された行はこのように表示されます。
• 削除された行はこのように表示されます。

!!安易に単純に
漢字表記の場合，最大１２桁ぐらいとして，４桁毎に１つのブロックと分けて考えればいいだろうな。
ブロックは下位より「"","万","億"」がつくものとして，さらに「"一","十","百","千"」の１桁毎に分解する。
えー，各桁で「０」の値は表現されない。さらに「"一"」の位で「１」の値は表現されるが「"十","百","千"」では「"一十","一百","一千"」とはあまり眼にしない。
 my $value = 14193;  #値を入れる

 my $buf = "";
 my (@t0)=("","一","二","三","四","五","六","七","八","九");
 my (@t1)=("","","二","三","四","五","六","七","八","九");
 my (@t2)=("","万","億","m3","m4","m5","m6","m7","m8","m9");
 my ($w0,$w1,$w2,$w3,$w4)=(0,0,0,0,0) ;
 if ($value == 0 ) {	$buf = "零";	}
 while ( $value ){
 	$buf = "$t2[$w0]" . $buf;
 	$w4 = $value % 10000;
 	$w1 = $w4 % 10; $w4 = int ($w4 / 10);
 	$w2 = $w4 % 10; $w4 = int ($w4 / 10);
 	$w3 = $w4 % 10; $w4 = int ($w4 / 10);
 	$value = int ($value / 10000);
 	$buf = "$t0[$w1]".$buf;
 	if ($w2>0) {	$buf = "$t1[$w2]十".$buf;	}
 	if ($w3>0) {	$buf = "$t1[$w3]百".$buf;	}
 	if ($w4>0) {	$buf = "$t1[$w4]千".$buf;	}
 	$w0++;
 }
で，まあヨシとするか。