[問題] 如何只讀每個檔案的第一行呢

[chiunyao (chiunyao)]

小弟是Perl 新手，請多多指教

如果我有一堆文字檔，但是我每次只想判斷每個檔案的第一行後，就跳到下一個
檔案去判斷那我該如何做呢

./XXX.pl *.txt

while(<>) {
 if(/XXXXX/) {
 .......

 .......
}

如果我這樣寫，那diamon operator 的工作情況應該是每個檔每一行讀完，才換下個檔
要如何只判斷一行就跳到下一個檔案呢?

請教各位一下

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 118.233.11.254
推 tangcc:不要用while 直接用<>讀第一行
→ chiunyao:要怎麼直接用呢? 我翻過小駱馬 <> 都是搭配 while @@
推 Keelungman:就是只要 <> 不要 while(<>)
推 dm4:$firstLine = (<>)[0];
推 clanguage: $one_line=<MYFILE>