ログを複数同時に削除

質問

こんにちは。
Perlでログを複数同時に削除する方法が分かりません。

ログファイル「log.txt」に
Num=1234<>タイトル=あいうえお
Num=1235<>タイトル=かきくけこ
Num=1236<>タイトル=さしすせそ
Num=1237<>タイトル=さしすせそ
のようなデータが入っていて
フォームのチェックボックス（name=delck）から送られてきた値と
マッチするデータを削除したいと思っています。
例：1234と1236

最初はラジオボタンにして1行だけ削除できるようにしたのですが
やはり複数同時に削除できた方が便利なので
試しているのですが、どう書けば良いのかわからない状態です。

複数の値が送られてきた場合は
@delckに入るようになっています。（$delck[0]が1234、$delck[2]が1236）

ログの各行を、delckの数だけチェックすれば良いのかなと思って
わからないなりに↓こんな感じで、
foreachの中にforeachを入れたりしてみたのですが
foreach $data (@log){
foreach $del (@delck){
$ck = "Num=$del<>";
if($data =~ /$del/){$match = 1;}
else{push(@newdata,$data);}
}
}
これだと1個目のdelckにマッチしても、2個目のdelckにはマッチしないから結局@newdataに入ってしまうようで
思った通りの動作をしてくれませんでした。

他の書き方をしてみても、結局発想は↑と同じになってしまって
結果は同じになってしまいます。

どなたか詳しい方、アドバイスいただけると助かります！
よろしくお願いします。

回答No.1

_--_1l1_1_ · ベストアンサー

#!/usr/bin/perl
use warnings;
use strict;

my @logs = <DATA>;
my @dels = qw(1234 1236);
my @new_logs = ();

foreach my $log (@logs) {
my $del_match = 0;
DEL_CHK:
foreach my $del (@dels) {
if ( $log =~ /Num=$del<>/ ) {
$del_match = 1;
last DEL_CHK;
}
}
push @new_logs, $log if $del_match == 0;
}
print foreach @new_logs;

__DATA__
Num=1234<>title=111
Num=1235<>title=222
Num=1236<>title=333
Num=1237<>title=444
Num=1238<>title=555

---
Num=1235<>title=222
Num=1237<>title=444
Num=1238<>title=555

お礼

早速アドバイスありがとうございます。
この部分だけでとりあえずテストしてみたら上手くいきました！

やり方自体というよりは、$del_matchなどをうまく使わないといけなかったんですね。。大変勉強になりました。
どうもありがとうございました。