Perlで行をさかのぼって削除する方法を教えて下さい

質問

ActivePerl5.8.4にて、以下の規則に従い、テキストファイルから複数行を削除しようとしています。

・１つの行はアルファベットと数字から成っており、アルファベットはA,B,Cの順に出現する。A,B,Cの行で一かたまり。
・数字部分が全く同じかたまりが出現すると、後で出現したかたまりを削除する。
・数字部分が全く同じかたまりが出現するときは、必ず連続で出現する。
下のような感じです。（スペースの都合で「\n」をつけましたが、実際には改行までが１行に書かれているテキストファイルを読み込みます。）

【入力】
A 1\nB 2\nC 3\nA 1\nB 2\nC 3\nA 1\nB 2\nC 2[EOF]
【出力】
A 1\nB 2\nC 3\nA 1\nB 2\nC 2[EOF]

すぐに思いついた方法はこんな感じです（まだ勉強不足のため、コードではあらわせません）。

　１．ファイルの１行ずつ読み込む
　２．A,B,Cをキーにして数字をハッシュに格納
　３．２回目のCまで読み込んだところで１つ前のハッシュと比較
　４．AからCの数字がすべて同じだった場合に、現在の行（２つめのCを読み込んでいる）とその前２行を削除（実際にはnextでprintを飛ばす）

ところが、４の、さかのぼって行を削除する方法が思いつきません。
なにぶんperlの勉強を始めたばかりで突っ込み所満載のロジックだとは思いますが、解決策をぜひご教示ください。

回答No.2

guci-ok · ベストアンサー

テキストファイルというのは、途中を更新したり削除したりするものじゃないんです。
どのような経緯で、そのような厄介なことになってしまったのかわかりませんが、
テキストファイルを無理に使おうとした弊害だと思います。
テキストファイルを全部読んで、処理をし、そして書き戻すのが簡単だと思います。

D:>test1.pl
step1: $rec = 'A 1,B 2,C 3,A 1,B 2,C 3,A 1,B 2,C 2,A 3,B 3,C　　3,A 3,B 3,C 3,A 3,B
3,C 4,'
step2: $rec = 'A 1,B 2,C 3,A 1,B 2,C 2,A 3,B 3,C 3,A 3,B 3,C 4,'
--out--
A 1
B 2
C 3
A 1
B 2
C 2
A 3
B 3
C 3
A 3
B 3
C 4
D:>

#!Perl
use strict;

#【入力】
my @rec = <DATA>;
chomp @rec;
my $rec = join(',' => @rec) . ",";
print "step1: \$rec = '$rec'\n";

# データが正しいかチェック
die "data in disorder!\n" unless $rec =~ /^(A \d+,B \d+,C \d+,)+$/;

# データを処理, 連続するデータはひとつに

$rec =~ s/(A \d+,B \d+,C \d+,)\1+/$1/g;

print "step2: \$rec = '$rec'\n";

#【出力】

$rec =~ s/,/\n/g;
chomp $rec; # 最後の,を削除

print "--out--\n";
print $rec;

__DATA__
A 1
B 2
C 3
A 1
B 2
C 3
A 1
B 2
C 2
A 3
B 3
C 3
A 3
B 3
C 3
A 3
B 3
C 4

お礼

ご回答をありがとうございました。この手の仕様が厄介だということすら、認識できていませんでした。ご回答の例は、大変わかりやすくてためになりました。活用させていただこうと思います。

回答No.4

thatsthat

出力データをメモリ上にもつ以外の、
「さかのぼって行を削除する方法」に対する他の答えとして・・
一旦、別ファイルに出力しておいて、
最後に別ファイルを元のファイル名にrenameする、
というのも分かりやすいです。
「A～Cの数字が一つでも違った場合、
　ハッシュ(一つ前ではない方)から出力ファイルへ書き出す」
という感じですね。

お礼

ご回答ありがとうございました。こういうてもありますね。大変参考になりました。

回答No.3

karumakaruma

３行ずつ読み込んで、前の３行と比較し出力

$bef = ""; # 前３行
$line= ""; # 現３行
$ans = ""; # 出力用
open(IN,"test.txt");
while(1){
# ３行読み込み$lineに入れる
$line = <IN>;
$line .= <IN>;
$line .= <IN>;
if( $line eq "" ){ last; } # 読み込めなければ終了
elsif( $bef eq $line ){ next; } # 前３行と同じなら次の３行へ
else {
$bef = $line; #前３行に現３行を入れる
$ans .= $line; #出力用に現３行を入れる
}
}
close(IN);
# 出力
open(OUT,">test.txt");
print OUT $ans;
close(OUT);

別処理で元ファイルが書き換わる場合は、
排他処理を行わないといけないですね。

意味を判りやすく書こうとするとこんな感じですね。

お礼

ご回答ありがとうございました。複数行の読み込み例を示していただいて、とても参考になりました。

回答No.1

tthe_mine

3行ずつ読み込んだ方が簡単に出来ると思いますよ。

お礼

ご回答ありがとうございました。３行ずつ読み込めるのですね。もっと勉強いたします。