从文本中找到匹配的行

#!/usr/bin/perl

open FILE, "C:/d.txt ";
open OUT1,'>>C:/data.txt';

foreach (<FILE>)
{
@pairs=split //n/, $_;
$count=@pairs;
#print $count,"/n";
#print $pairs[$count-1];
if($pairs[$count-1] =~ m/^Pinging/)
{print OUT1 $_,"/n";}
}
close(FILE);
close(OUT1);

 

 

 

 

 

 

 

#!/usr/bin/perl

open FILE, "C:/bot_address.htm ";
open OUT1,'>>C:/data.txt';

foreach (<FILE>)
{
@pairs=split //n/, $_;
$count=@pairs;
#print $count,"/n";
#print $pairs[$count-1];

if($pairs[$count-1] =~ m/TCP Ports/)
{print OUT1 $_,"/n";}

if($pairs[$count-1] =~ m/Domain/)
{print OUT1 $_,"/n";}

}
close(FILE);
close(OUT1);