如何打印出匹配到所有行的第一行内容?

tianting002

1.文件　
cat newlog.txt

abc bcd ghk
bdc hkj jkm
ccc ddd eee
bad btt bhh
fff ggg bts

2.脚本
cat newlog.pl

#!/usr/bin/perl -w

open F1,"newlog.txt"||die "Cannot open newlog.txt!";
while ($line=<F1> {
if ($line=~ /^b/) {
print "$line";
}
}
close F1;


3.执行perl newlog.pl
得到以下行：
bdc hkj jkm
bad btt bhh

我只想得到第一行：
bdc hkj jkm


麻烦给提示下，谢谢！

jason680

提示
last;

Shell_HAT

1. open F1,"newlog.txt"||die "Cannot open newlog.txt $!";
   
2. while ($line=<F1>) {
   
3.     if ($line=~ /^b/) {
   
4.         print "$line";
   
5.         last;
   
6.     }
   
7. }
   
8. close F1;

复制代码

tianting002

回复 2# jason680


    #!/usr/bin/perl -w
open F1,"newlog.txt"||die "Cannot open newlog.txt!";
while ($line=<F1> {
if ($line=~ /^b/) {
print "$line";
last;
}
}
close F1;

是加print "$line";下面吗？

last在这里代表什么意思？　如果匹配了多行，我只想取得想要的一行呢？

Shell_HAT

回复 4# tianting002


http://perldoc.perl.org/functions/last.html

tianting002

回复 5# Shell_HAT


    谢谢两位，明白了!