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 · ベストアンサー

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

お礼

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