Perl 取匹配行的下一行

最新推荐文章于 2024-01-10 11:11:48 发布

scan724

最新推荐文章于 2024-01-10 11:11:48 发布

阅读量5.8k

点赞数

分类专栏：系统管理

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/44810147

版权

系统管理专栏收录该内容

91 篇文章 ¥39.90 ¥99.00

订阅专栏

本文展示了如何使用Perl脚本读取文件'a.txt'，当遇到包含'aaaaa'的行时，打印出该行的下一行。示例中，脚本'a1.pl'通过正则匹配找到'aaaaa'并记录行号，然后在下一次迭代中检查当前行是否为匹配行的下一行，如果是，则将其打印出来。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[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