文字列操作について・・（初心者です）

質問

いつもお世話になっています。

ファイルの中の文字データを検索して、それを差し替えたり、ある文字を挿入したりする事がしたいのですが、上手くいきません。
今とても困っています↓力を貸して頂くとありがたいです。

＜質問＞
ファイルは２つでＡとＢと言うテキストファイルがあります。

●１●で1つのグループ名（数字は昇順で複数あり）
☆１☆で1つのグループ名（数字はランダムで複数あり）
　＊●～●と☆～☆は同じ数存在します。

Ａ⇒●～●が順に複数入っています
Ｂ⇒文章が入っている途中に☆～☆が混ざって、入っています。

例）Ａの中から●１●を検索する。その文字列をコピーする。Ｂの中からＡで検索した同じ数字の☆１☆を検索する。見つかったら、そこに、貼りつける。

このような、作業は可能ですか？もし可能であれば、どうプログラムを書けばいいですか？ポイントでもいいので教えてください。

回答No.1

moon_piyo · ベストアンサー

Ａのテキストファイルのレイアウトが書いてないので
その部分は対応できませんが，それ以外の部分でしたら
下記のような感じでどうでしょう

#!perl

open(A, "<a.txt");
while (<A>) {

# たとえば●3● と ccc がペアでしたら
# $data{3} = "ccc"; というコードがここにはいる

}

open(B, "<b.txt");
while (<B>) {
s/☆(.+?)☆/$data{$1}/eg;
print;
}

回答No.2

moon_piyo

#1です

s///のあとのeは今回は不要でした

s/☆(.+?)☆/$data{$1}/eg;
↓
s/☆(.+?)☆/$data{$1}/g;

すいませんでした

お礼

ありがとうございました！
とてもわかりやすく説明してもらい助かりました。
プログラムは無事に完成する事ができました。