textファイルにある文字列の置換について

質問

すみません。
PERL初心者のものですが教えてください。

例えば、a.txtに以下の文字があるとします。
1234567,1111,9,8
1234568,1122,0,5
....

この時、「9」と「0」を文字列
9を"あいうえお"
0を"さしすせそ"
と置換したい場合、どのように文字列を置換すれば良いのか
ご教授いただけると幸いです。
既に他の方が質問済みでしたら済みません。

回答No.2

Tacosan · ベストアンサー

普通は個別に置換するでしょうが, ハッシュを使っていいなら 1回で置換できます.
s/[09]/$substituted{$&}/eg;
のような感じ, かな?
無名ハッシュでもいいと思うけど自信なし.

お礼

ありがとうございます。
配列、substr関数を利用し解決することが
できました。

ありがとうございました。

回答No.3

G-sun

カンマで区切られたデータの一部を置換したいのか、単純に文字列を
置き換えるのかによって変わると思います。
12345679,1111,9,8
の場合単純に考えたら
1234567あいうえお,1111,あいうえお,8
となってしまいます。
文字を文字に置換したいのか、数値を文字に置換したいのかも明確に
してもらえるとアドバイスしやすいです。

文字列の単純置換の場合は、ファイルオープンして
while($str=<IN>){
$str =~ s/9/あいうえお/g;
print $str."\n";
}

数値の場合は、まずカンマをセパレータにして分割してから
while($str=<IN>){
@val = split(/\,/,$str);
foreach $key (@val){
if($key==9) {
$key="あいうえお";
}
print "$key"."\n";
}
}

ちょっと出先なので検証してませんが、流れはこんな感じでしょうか・・・

お礼

1234567,1111,9,8
↓
1234567,1111,あいうえお,8
とやりたかったのですが、
解決することができました。
ありがとうございましたm(_ _)m

回答No.1

noname#39970

二回に分ける
http://www.kt.rim.or.jp/~kbk/regex/regex.html

お礼

URLのリンクありがとうございました。
参考とさせていただき
無事解決することが出来ました。