perlで検索 カンマ n番目

質問

～log.txt～
1,a,w,e,r
2,a,w,e,r
2,e,a,v,ssss
3,s,ssss,a,a

$FILE = 'log.txt';
$Search = 'sss';

～Search.pl～
open(FILE, "<$FILE") or die("error :$!");
eval{ flock(FILE, 1) };
@DATA = <FILE>;
close FILE;

$a = 0;
my @Search = grep(/$Search,/, @DATA);
while (<@Search>) {
$a++;
}
print "@Search\n";

このようなデータで
検索ワード＝sssのとき
ヒットするのが
2,e,a,v,ssss
3,s,ssss,a,a
[0][1][2][3][4]
この2つです。
ここまではいいのですが、
2番目のsssのみを取り出したいとき
my @Search = grep(/$Search,/, @DATA);
ここをどのように変えればいいのでしょうか・・・？

回答No.3

donttalktome · ベストアンサー

push @Search, [$field[2], $line] if $field[2] =~ /s/;
とすると、配列 @Search は配列の配列になります。
[[2 番目のフィールド, 行全体], [2 番目のフィールド, 行全体], ...]

お礼

ありがとうございました！
実行でき解決できました！

回答No.2

donttalktome

正規表現も良いですが、2番目のフィールドとわかっているのなら、
コンマで分割してからマッチすれば良いような。

foreach my $line (@DATA) {
my @field = split /\s*,\s*/, $line;
push @Search, $field[2] if $field[2] =~ /s/;
}

お礼

説明不足で申し訳ないです；；

補足

説明不足でした。すみません・・・
ご掲示くださったソースで、しっかり「sを含む文字列」を探しだすことに成功しました。

ただ、フィールドの[0][1][3]もほしいのです・・；；
ご掲示くださったソース
での実行結果
1,a,w,e,r
2,a,w,e,r
2,e,asa,v,ssss
3,s,ssss,a,a
↓
asa ssss

結果的には
1,a,w,e,r
2,a,w,e,r
2,e,asa,v,ssss
3,s,ssss,a,a
↓
2,e,asa,v,ssss
3,s,ssss,a,a
（＠Search）

回答No.1

donttalktome

/\A(?:[^,]+,){2}$Search/
はどうでしょうか。

お礼

ありがとうございます。

最後に、もう１つご教示お願いいたします

補足

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

やりたいことはこれです！

しかし、1文字目の文字だけでなく
文字列の中に含む場合、どうするのでしょうか・・・？

例）
検索ワード　「s」
ヒットワード　「moshi」