Perl Host Discover by Sub7 Version 2

[Sub7]

Bem pessoal, sem ao menos esperar 1 dia (na verdade, foi menos de 4h kkkkkkk) após codar o Host Discover Version 1, já consegui codar o Host Discover Version 2. kkkkkkk
Não tenho paciência para ficar esperando...


Bom, basicamente as mudanças que fiz foram poucas:


1º - Agora você consegue varrer uma grande faixa de IP's de uma vez só.

2º - O Tempo de espera para o limite da conexão caiu de 10, para 3 segundos.


Basicamente, você deve ter um arquivo com todos os IP's que você deseja analizar. Indicar este arquivo no programa, e deixar que o programa faz tudo sozinho para você!

Como funciona?

Ele funciona juntamente com o protocolo ICMP, utilizando o Ping. Agora, você consegue analizar uma grande faixa de IP's de uma vez!

#!/usr/bin/perl -w

use strict "refs";
use warnings;
use Net::Ping;

print "\t\t\t  Host Discover\n";
print "\t\t\t    Version 2.0\n";
print "\t\t\t  Coded by Sub7\n\n";
print "Arquivo com os IP's: ";
chomp($arquivo = <STDIN>);

my $texto = $arquivo;

open (my $arquivo, "<$texto") || warn "ERRO! Arquivo não encontrado...\n";
while(<$arquivo>){

my $limite_seg = 3;

my $p = Net::Ping->new("icmp");


if($p->ping($_, $limite_seg) == 1){

   print "O host responde: ".$_."";

}else{

        print "O host não responde: ".$_."";

}

$p->close();



}
close $arquivo;

Qualquer erro, ou dúvida comente!