[oracle@perass back]$ cat a.txt
aaaaa
1
aaaaa
2
aaaaa
3
aaaaa
4
aaaaa
5
aaaaa
11111
[oracle@perass back]$ cat a1.pl
open (A ,"<","a.txt");
while (<A>){
$num++;
if ( $_ =~/aaaaa/ ){ $a=$num};
if ($. == $a + 1){print "$_\n"};
}
[oracle@perass back]$ perl a1.pl
1
2
3
4
5
11111
Perl 取匹配行的下一行
最新推荐文章于 2021-05-13 15:09:31 发布
本文展示了如何使用Perl脚本读取文件'a.txt',当遇到包含'aaaaa'的行时,打印出该行的下一行。示例中,脚本'a1.pl'通过正则匹配找到'aaaaa'并记录行号,然后在下一次迭代中检查当前行是否为匹配行的下一行,如果是,则将其打印出来。
摘要由CSDN通过智能技术生成