perl提取特定文本行的下一行如何实现？

2025-04-28 02:39:41

推荐回答（1个）

回答1：

use strict;
use warnings;


@ARGV==2 or die;               #将读入文件与写出文件参数传递给@ARGV
my($infile,$outfile)=@ARGV;    #通过@ARGV传递给变量，以便于下面执行句柄操作
open my $in,'<',$infile or die; 
open my $out,'>',$outfile or die;       
while(<$in>)                  
{
 next if(/^xxxxxxx$/)#跳过匹配到的特定内容
 print $out "$_";    #输出即可
}
close $in;
close $out;           #关闭句柄



注意：我用@ARGV是Linux下操作的，如果你是window下操作的，就直接使用楼上的句柄操作就可以了