[SP-pm] Como "ler" uma array que está dentro de um bloco "privado" ?

["Flávio R. Lopes"]

Opa!...e aí Solli?

Então, ainda não cheguei no capítulo que trata da instalação e utlização 
dos módulos Perl.
Na verdade nem procurei no CPAN, apesar de "desconfiar" que já devesse 
existir algum módulo para isso! Não quiz reinventar a roda, só quiz 
tentar desenvolver algo com os conhecimentos que já tinha apenas com os 
capítulos que já li.

Obrigado pela sugestão,

Abraço,
Flávio


Solli Honorio escreveu:
> Legal então comece a fazer com mais cara de sistema e menos de 
> scripts, utilize o Net::Ping.
>
> Solli M. Honorio
>
> Em 3 de maio de 2010 17:59, "Flávio R. Lopes" 
> <flavio.lopes em links.inf.br <mailto:flavio.lopes em links.inf.br>> escreveu:
>
>     Nelson Ferraz escreveu:
>
>         Flávio,
>
>         Você deve declarar a variável fora do loop, para que ela
>         continue a
>         existir quando o loop terminar.
>
>         my (@ativo, em inativo);
>
>         for (1..254) {
>            my $ip = "...";
>            # ...
>            if ( ... ) {
>               push @ativo, $ip; # use "push" para empilhar itens em um
>         array
>            } else {
>               push @inativo, $ip;
>            }
>         }
>
>         # as variáveis declaradas fora do loop continuam a existir
>         print "Ativos: ", join(",", em ativo}, "\n";
>         print "Inativos: ", join(",", em inativo}, "\n";
>          
>
>
>     Humm!....legal!...agora clareou umas coisas aqui!
>
>         Além de arrays, você também poderia ter usado hashes:
>
>         my %ip;
>
>         for (1..254) {
>            my $ip = "...";
>            # ...
>            if ( ... ) {
>               $ip{$ip} = 1;
>            } else {
>               $ip{$ip} = 0;
>            }
>         }
>
>         print "Ativos: ", join(",", grep { $ip{$_} == 1 } sort keys
>         %ip}, "\n";
>         print "Inativos: ", join(",", grep { $ip{$_} == 0 } sort keys
>         %ip}, "\n";
>          
>
>     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.
>
>     Obrigado pela ajuda Nelson!
>
>     Abraço,
>     Flávio
>
>     PS: Putz...quem diria heim!....fiz minha primeira "ferramenta" em
>     Perl!!!
>
>
>         Enfim... TIMTOWTDI.
>         _______________________________________________
>         SaoPaulo-pm mailing list
>         SaoPaulo-pm em pm.org <mailto:SaoPaulo-pm em pm.org>
>         http://mail.pm.org/mailman/listinfo/saopaulo-pm
>
>          
>
>
>     _______________________________________________
>     SaoPaulo-pm mailing list
>     SaoPaulo-pm em pm.org <mailto:SaoPaulo-pm em pm.org>
>     http://mail.pm.org/mailman/listinfo/saopaulo-pm
>
>
>
>
> -- 
> "o animal satisfeito dorme". - Guimarães Rosa
> ------------------------------------------------------------------------
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm