くだすれPerl（超初心者用）2

くだすれPerl（超初心 ..

132:nobodyさん
08/04/14 20:11:42
一応、お詫びします。迷ったけどこっちに書きます。
貴方が本当に別人なら理解出来るでしょう。
======================
当方、確認の術を持たないので（win環境なし）。
s///e の問題にしろ再帰の問題にしろ、再帰を使うほどの
ネタでは無さそう。あくまでも適当に書いた例だけど。
# Wide character warning が出るのは御愛嬌。
use utf8 ;
my %hash
　= map{
　　my $new = $_ ;
　　$new =~ s/(\d)(\d)/$1十$2/ if length $new == 2 ;
　　$new =~ s/1十(\d)/十$1/ ;
　　$new =~ tr/123456789/一二三四五六七八九/ ;
　　$new =~ s/0// ;
　　$_, $new ;
　} 1 .. 99 ;

while(my $line=<DATA>){
　 $line =~ s/(\d+)条/$hash{$1}条/; print $line ;
}
__DATA__
3条
24条
10条

次ページ

続きを表示

1を表示