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

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

134:130
08/04/15 02:25:32
こっちにレスがついてた。みんなサンクス

>>132
イエッサー。わかりますとも。自分でも向こうに書き込んだ後に、ハッシュ使えばs///eも再帰も必要ないかなって思った。
処理速度もこっちのほうが速いし。でも自分で書いたのはこんなの。うーん、いまイチスマートにならないなあ。

my　$kanj;
for　(1..99){
　　　　my　$kan　=　$_;
　　　　$kan　=　　substr($_,0,1)　.　'十'　.　substr($_,1,1)　if($_　>=　10);
　　　　$kan　=~　tr/123456789/一二三四五六七八九/;
　　　　$kan　=~　tr/0//d;　　　　$kan　=~　s/一十/十/;　　　　$kanj->{"$_"}　=　$kan;
　}

次ページ

続きを表示

1を表示