csvデータ出力

質問

いつもお世話になっています。今回は・・・

csvファイルに書かれた情報を一覧表示するやり方は何とか判ったのですが
（↓でdata.csvの情報が全て表示される）
open(IN, "data.csv");
while (<IN>) {
print $_;
}
close(IN);

一つ目のデータを参照してマッチした場合にその列を表示する。というやり方が全くわかりません；
とほほさん等で調べてみたのですが、全くわかりませんでした；

やりたいことは例えば・・・
csvファイルの中身の情報が

4,データ１,データ１の説明
4,データ２,データ２の説明
5,データ３,データ３の説明
5,データ４,データ４の説明
5,データ５,データ５の説明
12,データ６,データ６の説明

だとすると、一番最初の行の数字5にマッチすると
5,データ３,データ３の説明
5,データ４,データ４の説明
5,データ５,データ５の説明
を表示する。というような事がやりたいのです。

急ぎではありませんので、自分でも他のperl情報サイトで調べながら回答を待ちたいと思います。
よろしくお願いします

回答No.1

Dpop · ベストアンサー

csvの分解は簡易式です。本格的にやりたい場合には、

CSV形式の行から値のリストを取り出す
http://www.din.or.jp/~ohzaki/perl.htm#CSV2Values

を参考にしてください。

open(IN, "data.csv");
while (<IN>) {
if ((split(/,/))[0] == 5) {
print $_. "\n";
}
}
close(IN);

お礼

有難う御座いました、補足で記入した事も強引な気がするやり方で出来ました＾＾；

open(IN, "data.csv");
while (<IN>) {
if ((split(/,/))[0] == 5) {
if ((split(/,/))[0] == 12) { last ; }print $_. "\n";
}
}
close(IN);

補足の編集の仕方が判らなかったのでお礼として書かせて頂きます。
今度はこのデータをテーブル表示に・・・
<table><tr><td>データＮＯ</td><td>データ</td><td>説明</td></tr>
<tr>
<td>5</td><td>データ５</td><td>データ５の説明</td>
</tr>
<tr>
<td>5</td><td>データ６</td><td>データ６の説明</td>
</tr>
・・・
</table>
このように書き出されるように勉強します、本当に有難う御座いました

補足

有難う御座います！一番最初の数字にマッチしたものを取り出すことが出来ました！

書かれているＵＲＬを参考にさせていただいたのですがやっぱり判らず
全く自分がふがいなく感じております；

先ほど教えていただいたのは、マッチしたものを取りさすのだったのですが
例えば4～12の間の数字にマッチしたもの全てを取り出すのにはどう記述するべきでしょうか？

例えばデータが
4
4
5
5
5
10
・・・
とある場合、4～10にマッチしたものを取り出すというものです
これから参考に書かれたＵＲＬの場所で色々勉強したいと思います