複数行にわたる処理

質問

こんばんは。perl初心者です。
どうしてもわからないので、どうかアドバイスよろしくお願いします。

一つのファイルに、以下のような３行で一組の塊がある場合、

<line_a>: aaaaaa
<line_b>: BBBBBB
<line_c>: cccccc

<line_a>: aaaaaa
<line_b>: bbbbbb
<line_c>: cccccc

...

<line_b>の行に文字列"BBBBBB"が含まれていたら、<line_a>の内容を"aaaaaa"から"AAAAAA"に置換してファイルを上書きしたいのですが、
どうやったらいいのでしょうか・・・。

回答No.4

ken-etsu · ベストアンサー

んー、もう少し条件を整理して考え直してはいかがですか？
<line_a>以降、次の<line_a>直前の行までを一ブロックとして考えて、
一行づつ読んで、<line_a>が出てくる度にその直前のブロックまとめてを出力する、
と言うように書いてみるとか。
読んでいるブロックは、配列に入れておく必要がありそうですね。
置換するのは、その配列の最初の要素です。
ただし、この場合は、最初と最後のブロックの処理をよく考えてください。

お礼

とりあえず、望みのものを出力することができました。
もう少し考えを整理する必要がありそうですが、一旦ここで質問を締め切ります。
アドバイスありがとうございました！

回答No.5

moon_piyo

こんちには
ファイル全体を連結して文字列をつくり

置換してはどうでしょう

local($/) = undef;
$line = <IN>;

で
<line_a>: aaaaaa\n<line_b>: BBBBBB\n
↓
<line_a>: AAAAAA\n<line_b>: BBBBBB\n
と置換する

お礼

こんばんは。
そういう手もあるのですね。
今回はとりあえず望みのものが得られたので、次に試してみます。
アドバイスありがとうございました！
この場を借りて投稿してくださった皆様にお礼申し上げます。

回答No.3

sakusaker7

> <line_a>: aaaaaa
> <line_b>: BBBBBB
> <line_c>: cccccc
>
> <line_a>: aaaaaa
> <line_b>: bbbbbb
> <line_c>: cccccc

line_c のあとに必ず空行が来たりします?
もしそうなら、

$/ = "\n\n";

while (<>) {
...
}

とか。

補足

＞line_c のあとに必ず空行が来たりします?
空行ではない場合もあります。
なので、No.2さんへの補足欄に書いたようにしてみたのですが、
うまくいきません。

あつかましいお願いかもしれませんが、ダメ出ししていただけるとありがたいです。

回答No.2

noname#58606

微妙に、Ｐｅｒｌを忘れているのですが、概念だけ。
「３行ずつ読め！」って、命令はありません。

１行を３回読むことで、一区切りにするとか。
forループで３回読むのを一区切りとすれいいですし。
また、１行ずつに何か必ず特長があるのなら、それを検索して、読む出して、配列に入れるなり、変数に入れるなり。
けっこう条件が曖昧です。
もうちょっと具体的なソースやデータがないと。

この３行ってのは、データとして鉄板なんですよね？
普通は、無理にでも１行にまとめたり、別のファイルに分けたりするんですが。

＞<line_b>の行に文字列"BBBBBB"が含まれていたら、<line_a>の内容を"aaaaaa"から"AAAAAA"に置換してファイルを上書きしたいのですが、

そもそも、これだけなら、
ファイルを上から読んでいって、
if ('<line_b>' == 'BBBBBBB'){
　一つ上のラインを一度消して、修正すればＯＫ。}
else{スルー。}

現在地がｘなら、（ｘ-1）の一を削除して、(x-1)に追加。
・・・、無理があるかな。
まぁ、概念はこんなのもあります。

補足

＞この３行ってのは、データとして鉄板なんですよね？

この３行以外のものが含まれていることもあります。
なので、
last を使って、一つ目の<line_a>から二つ目の<line_a>までの間にある行を取り出して・・・というような、以下のようなスクリプトを書いてみたのですが、

while (<>) {
　　last if /^<line_a>/;
　　print;
}
while (/^<line_a>/) {
　　$a = $_;
　　while (<>) {
　　　　last if /^<line_a>/;
　　　　if (/BBBBBB/) {
　　　　　　$a =~ s/aaaaaa/AAAAAA/;
#　　　　　　print $a;
　　　　　　print;
　　　　}
　　　　else {
　　　　　　print;
　　　　}
　　}
#　　　　　　print $a;
}

$a のprint位置がわかりません・・・
if (/BBBBBB/) { } 中でprintすると変な位置に挿入されるし、
while (<>) { }を抜けた後にすると一個後ろの組にずれてしまいます。
そもそもこのような書き方は間違っているのでしょうか？

＞　一つ上のラインを一度消して、修正すればＯＫ。}
この処理をするにはどういう記述をしたらいいのでしょうか？

ダメ出ししていただけるとありがたいです。

回答No.1

ken-etsu

んー、自分の説明の通りのことをプログラムで書けばいいんじゃないでしょうか。
三行づつ読んで、<line_b>を調べて、条件に合致すれば、<line_a>を変更して、<line_a>、<line_b>および<line_c>を出力する。それだけでしょ？
その中の何が解らないんですか？

補足

三行づつ読むのがわかりません・・・