文字列置換

質問

すみません、perl初心者なのですが・・。

以下のような置換を行いたいのですが、
これをひとまとめに記述する方法を教えてください。

　※$paramに1～9の値いずれがセットされている場合。

　　$param =~ s/1/hokkaido/g;
$param =~ s/2/tohoku/g;
$param =~ s/3/kantou/g;
$param =~ s/4/hokuriku/g;
$param =~ s/5/cyubu/g;
$param =~ s/6/kinki/g;
$param =~ s/7/chugoku/g;
$param =~ s/8/shikoku/g;
$param =~ s/9/kyusyu_okinawa/g;　

宜しくお願い致します。

回答No.1

noname#25358 · ベストアンサー

検索対象となる文字列は数字１文字固定ですか？
　であれば、
@Num2Place = ( '', 'hokkaido', 'tohoku', 'kantou', ...); #以下略
$param = $Num2Place[$param];
　と、このようにします。

　数字１文字なのは単に例だからにすぎないのであれば、
@Num2Place = ( '', 'hokkaido', 'tohoku', 'kantou', ...); #以下略
$param =~ s/\d/$Num2Place[$&]/g;

　これ↑で置き換えできます。
　俺はこの方法で全角の大文字／小文字変換とかやってます。

お礼

回答ありがとうございます。
検索対象文字列は数字１文字固定でした。
これから少しずつ勉強していきたいと思います。