<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, &quot;Flávio R. Lopes&quot; <span dir="ltr">&lt;<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>&gt;</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 = &quot;...&quot;;<br>
    # ...<br>
    if ( ... ) {<br>
       push @ativo, $ip; # use &quot;push&quot; 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 &quot;Ativos: &quot;, join(&quot;,&quot;,@ativo}, &quot;\n&quot;;<br>
print &quot;Inativos: &quot;, join(&quot;,&quot;,@inativo}, &quot;\n&quot;;<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 = &quot;...&quot;;<br>
    # ...<br>
    if ( ... ) {<br>
       $ip{$ip} = 1;<br>
    } else {<br>
       $ip{$ip} = 0;<br>
    }<br>
}<br>
<br>
print &quot;Ativos: &quot;, join(&quot;,&quot;, grep { $ip{$_} == 1 } sort keys %ip}, &quot;\n&quot;;<br>
print &quot;Inativos: &quot;, join(&quot;,&quot;, grep { $ip{$_} == 0 } sort keys %ip}, &quot;\n&quot;;<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 &quot;ferramenta&quot; 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>&quot;o animal satisfeito dorme&quot;. - Guimarães Rosa<br>