#!/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);