<span style="font-family: courier new,monospace;">Legal então comece a fazer com mais cara de sistema e menos de scripts, utilize o Net::Ping.</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">Solli M. Honorio</span><br><br><div class="gmail_quote">Em 3 de maio de 2010 17:59, "Flávio R. Lopes" <span dir="ltr"><<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">Nelson Ferraz escreveu:<div class="im"><br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Flávio,<br>
<br>
Você deve declarar a variável fora do loop, para que ela continue a<br>
existir quando o loop terminar.<br>
<br>
my (@ativo,@inativo);<br>
<br>
for (1..254) {<br>
my $ip = "...";<br>
# ...<br>
if ( ... ) {<br>
push @ativo, $ip; # use "push" para empilhar itens em um array<br>
} else {<br>
push @inativo, $ip;<br>
}<br>
}<br>
<br>
# as variáveis declaradas fora do loop continuam a existir<br>
print "Ativos: ", join(",",@ativo}, "\n";<br>
print "Inativos: ", join(",",@inativo}, "\n";<br>
<br>
</blockquote>
<br></div>
Humm!....legal!...agora clareou umas coisas aqui!<div class="im"><br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Além de arrays, você também poderia ter usado hashes:<br>
<br>
my %ip;<br>
<br>
for (1..254) {<br>
my $ip = "...";<br>
# ...<br>
if ( ... ) {<br>
$ip{$ip} = 1;<br>
} else {<br>
$ip{$ip} = 0;<br>
}<br>
}<br>
<br>
print "Ativos: ", join(",", grep { $ip{$_} == 1 } sort keys %ip}, "\n";<br>
print "Inativos: ", join(",", grep { $ip{$_} == 0 } sort keys %ip}, "\n";<br>
<br>
</blockquote></div>
E quanto a usar HASHES eu realmente pensei em utilizá-lo...mas vou fazer isto quando eu desenvolver a próxima versão deste pequeno programinha, mas que irá abranger as classes de rede A, B e C.<br>
<br>
Obrigado pela ajuda Nelson!<br>
<br>
Abraço,<br><font color="#888888">
Flávio<br>
</font><br>
PS: Putz...quem diria heim!....fiz minha primeira "ferramenta" em Perl!!!<div><div></div><div class="h5"><br>
<br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Enfim... TIMTOWTDI.<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
<br>
<br>
</blockquote>
<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa<br>