Perl マッチング 1行だけ表示

おそれいります。
abc.txtに保存されたデータを、xyz.cgiから特定ワードに合った最初の行だけを抽出したいのですが、
うまくいきません。

open(OUT, "< ./abc.txt");
while($data = <OUT>){
chomp($data);
@ip = split(/,/,$data);

if($ip[0] =~ /word/){
処理
}

とすると、マッチする行が全て表示され、
Whileを外すとデータの1行目だけを判定するみたいで、

wordという文字列が含まれるレコードが見つかったらそのマッチした最初のデータだけを表示したいのです。

よろしくお願いします。

No.1 ベストアンサー 回答者： Gaffgarion 回答日時： 2013/02/21 11:43

ifの中の処理の最後でlastします。

もっともっと良いやり方いっぱいあるけど、
最初は今のソースにlastを付けるところから始めましょう。

この回答へのお礼

ありがとうございます。lastを付けて解決いたしました。

お礼日時：2013/02/21 13:01