文字列を置換え

ある特定の文字列を別の文字列に置き換えたいのですが
その置き換える前後のデータをファイルから読み込むようにしたいのですが
どのようにしたらよいでしょうか？

No.3 ベストアンサー 回答者： nipotan 回答日時： 2002/10/24 09:45

> すみません　質問の仕方に問題があったようです

> ある文字列の特定の単語を別の単語に置き換えたいです
> そのとき置き換える単語は複数あってそれの一覧をファイルから読めるようにしたいのですがどうしたらよいでしょう？

#2 の答えではヒントにならないですか？
質問の仕方云々のせいで二つもコーディングパターンを作らないといけないのはかなり癪です。
ご自身の努力ではどの程度までいったんでしょうかね。

サンプルとして、

[chikan.dat]
---
# 置換対象の文字
TARGET = あら！
TARGET = おや！
TARGET = まあ！
TARGET = やあ！

# 置換後の文字
REPLACED = なんてこったい！
---

[chikan.pl]
---
# 元の文字列
my $string =
q{あら！あんなところにryuta_moがいるわ
おや！あんなところにnipotanがいるよ
まあ！ryuta_mo
やあ！nipotan
おひさしぶり};

# データファイルからの読込みを格納するハッシュ
my %data = ();

# データ取得
open FH, 'chikan.dat' || die $!;
while(<FH>){
next if /^\s*#/;
next if /^\s*$/;
chomp;
if(/^(.+?)\s*=\s*(.+)$/){
$data{$1} .= "\0" if(exists $data{$1});
$data{$1} .= $2;
}
}
close FH;

# 置換処理
map{
$string =~ s/\Q$_\E/$data{REPLACED}/g
}(split /\0/, $data{TARGET});

# 画面出力
print $string;
---
こんなんでどうでしょう？

この回答へのお礼

ありがとうございます
無事解決しました

お礼日時：2002/10/29 19:46

No.2 回答者： nipotan 回答日時： 2002/10/22 16:49

「前後のデータ」ですか。

。。

以下サンプルです

[chikan.dat]
---
# 置換対象の前の文字
PREVIOUS = これは

# 置換対象の後ろの文字
BACK = データです

# 置換後の文字
REPLACED = ほげほげ～
---

[chikan.pl]
---
# 元の文字列
my $string = 'これは元の文章が記載されたデータです';

# データファイルからの読込みを格納するハッシュ
my %data = ();

# データ取得
open FH, 'chikan.dat' || die $!;
while(<FH>){
next if /^\s*#/;
next if /^\s*$/;
chomp;
$data{$1} = $2 if /^(.+?)\s*=\s*(.+)$/
}
close FH;

# 置換処理
$string =~
s{(\Q$data{PREVIOUS}\E)(?:.*?)(\Q$data{BACK}\E)}
{$1$data{REPLACED}$2}g;

# 画面出力
print $string;
---

こんなんでどーでしょう？

この回答への補足

すみません　質問の仕方に問題があったようです
ある文字列の特定の単語を別の単語に置き換えたいです
そのとき置き換える単語は複数あってそれの一覧をファイルから読めるようにしたいのですがどうしたらよいでしょう？

補足日時：2002/10/24 00:15

No.1 回答者： kz2960 回答日時： 2002/10/19 21:07

考え方を少しかえれば出来ると思います。

開発言語が不明なので文章で甘く説明出来るか？疑問ですが。

変数を宣言
　ＳＶ（３）、ＤＴ

読込み
　ＤＴへ

変数移動
　ＳＶ（３）＝ＳＶ（２）
　ＳＶ（２）＝ＳＶ（１）
　ＳＶ（１）＝ＤＴ

比較
　ＳＶ（２）の内容が文字列と比較すれば
　前後（１、３）で解決できませんか？

この回答へのお礼

ありがとうございます

お礼日時：2002/10/29 19:48