PERL カンマ区切り 一致行削除

質問

教えてくださいm(_ _)m

最初に目的を書きます・・・
～test.txt～
1,aaa,eee,ttt
3,eee,eee,yyy
5,ttt,yyy,eee
2,yyy,bbb,qqq
↓
5,ttt,yyy,eee
2,yyy,bbb,qqq
～～～～～～～～～～

例１）、カンマ区切り3列目が「eee」
の行を全て削除（完全一致）

例２）、カンマ区切り3列目が「e」を含む
行を全て削除（部分一致）

というふうにしたいのですが、
どのようにするのかわからないです・・・

現在下記のように
とりあえず１行目（０番目）を削除するとこまできました。

#! /usr/bin/perl

$TEST = 'test.txt';

open(FILE, "<$TEST");
eval{ flock(FILE, 1) };
@DATA = <FILE>;
close FILE;

$NO = 0;
splice @DATA, $NO, 1;

open(FILE, ">$TEST");
eval{ flock(FILE, 2) };
print FILE @DATA;
close FILE;

回答No.1

kichi8000 · ベストアンサー

ササッと書いたので動くかどうかわかりませんが、
こんな感じです。

# 行位置補正のための変数
my $fix = 0;
foreach my $NO(0 .. $#DATA){
my @strlist = split(/,/, $DATA[$NO - $fix]);
my $test = $strlist[3];
chomp($test);
$test =~ s/^ *(.*?) *$/$1/;
if ($test =~ /^eee$/){
# 正規表現は 例１）/^eee$/ または、例２）/e/
# 行位置がずれるので本当は別の＠変数を編集したい
splice @DATA, $NO - $fix, 1;
$fix++;
}
}

お礼

ありがとうございます！

実行確認できました！

回答No.3

donttalktome

> ワンライナーで。
> perl -i.bak -F, -ane 'print if$F[2]!~/^eee$/' test.txt
>
> -i.bak はバックアップを取るオプションです。test.txt.bak に現在のファイルを保存します。試すとき -i.bak をつけなければ、標準出力に出力します。

ワンライナーとはコマンドラインのオプションだけで
完結するスクリプトのことです。
-F, オートスプリットの区切りを , にする
-a オートスプリットする（$_ をsplit して @F に代入）
-n 与えるファイルを一行ずつ読み込む（while(<>){} と同じ）
-e 次の引数をスクリプトとして評価する
'print if$F[2]!~/^eee$/' @F の2番目の要素が eee でなかったら、$_ を印字
つまり、
while(<>) {
my @F = split ',';
if ($F[2] !~ /^eee$/) {
print;
}
}
と同じことです。

お礼

お返事が遅くなり申し訳ございません。

確認実行できました。

まだ、ワンライナーについて、理解できていないので、
勉強していきます！

回答No.2

donttalktome

ワンライナーで。
perl -i.bak -F, -ane 'print if$F[2]!~/^eee$/' test.txt

-i.bak はバックアップを取るオプションです。test.txt.bak に現在のファイルを保存します。試すとき -i.bak をつけなければ、標準出力に出力します。

お礼

ご回答ありがとうございます。

補足

ご回答ありがとうございます。

ワンライナーというのを使ったことがないのですが、
質問文ですと

$NO = 0;
splice @DATA, $NO, 1;

これを

perl -i.bak -F, -ane 'print if$F[2]!~/^eee$/' test.txt

に替えるのでしょうか。。。？

試しに、コマンドラインで実行しましたがエラーです。
（使い方をわかっていないです・・・）