一致する項目の検出？

質問

こんにちは。
ある値とデータの中から一致したら、その行を取り出すという基本的なところで困っています。
データは
1111,aaaa,gggg
2222,gggg,5555
tttt,hhhh,3333
.
.
となっています。
例えば、値Xが2番目の値ggggと一致する場合、その行の2222という値を表示する、といった風にするにはどうすればよいでしょうか。
値Xがhhhhならば、ttttを取り出したいです。

splitでデータを一行取り出すのですが、どうしても、最初の一行しか取り出せず、値Xと2番目のggggと一致する場合の行を読み取る、というところがうまくいきません。

わかりにくい説明で申し訳ありませんが、よろしくお願いします。

回答No.1

togino · ベストアンサー

x = "gggg";

open(IN, "input.csv);
while($line = <IN>){
　@cols = split(/,/, $line);
　if($cols[1] eq x){
　　print $cols[0]."\n";
　}
}

のように１行ずつ取り出して
カンマで区切って配列に代入し
配列の２番目の値と一致したら
配列の１番目の値を表示する

という感じでいかがでしょう？

お礼

返事が遅くなり、申し訳ありません。
わかりやすい説明、ありがとうございます。
ほんと、このままな考え方でやりたいのですが、どうしてもうまくいきません。
@cols = split(/,/, $line);
の@colsを表示させると、一番最終行が表示されています。
この時点でおかしいからやっぱりうまくいかないのでしょうか。

すいませんが、もしお時間があれば、よろしくお願いします。

補足

すいません。
x=gggg
の値のところで、ちょっと間違ってました。
うまく動きました。
ありがとうございました。

回答No.2

Ethersky

1111,aaaa,gggg
2222,gggg,5555
tttt,hhhh,3333

がdata.txtというファイルに入っているとして、

$target = 2; #X番目（ここでは2）の値が
$search = 'gggg';#Yだった場合（ここではgggg）に
$view = 1;#Z番目（ここでは1）の値を表示

open(FILE, "< data.txt");
while(<FILE>){
chomp;
@parse = split(/,/);
if($parse[$target-1] eq $search){print "$parse[$view-1]\n";}
}
close(FILE);

お礼

返事が遅くなり、申し訳ありません。
配列の@xx[0],[1]の部分に [$target-1],などで表現してもいいのですね。数字じゃないとだめだと思ってました。
先の方の場合と同じなのですが、今は@parseには一番最終行しか入ってないみたいです。
ちょっとしたことだと思うのに、難しいです。
ありがとうございました。