[Cascavel-pm] Problema com Win32::Process::List

[Donato Azevedo]

funcionaram ambas as sugestoes. grato

On 4/9/05, Solli Moreira Honorio <shonorio em terra.com.br> wrote:
> Donato,
> 
> Dê uma olhada no link http://www.perlmonks.org/?node_id=446283, lá está
> o código necessário para pegar as informações dos processos que estão
> rodando no Win98. Instalei um Win98 (isto me faz lembrar porquê alguma
> pessoas odeiam tanto a Microsoft) e testei.
> 
> Como você poderá ver, o problema do meu script estava num bug do
> Win32::API::Struct::sizeof.
> 
> Abraços,
> 
> Solli Moreira Honorio
> 
> -----Original Message-----
> From: cascavel-pm-bounces em pm.org [mailto:cascavel-pm-bounces em pm.org] On
> Behalf Of Solli Moreira Honorio
> Sent: sábado, 9 de abril de 2005 15:28
> To: 'Cascavel Perl Mongers'
> Subject: RE: [Cascavel-pm] Problema com Win32::Process::List
> 
> Donato,
> 
> O Win32::Process::List não vai rolar no W9x/ME cara, ele está utilizando
> algumas API não suportada neste sistema operacional.
> 
> Temos duas alteranativas :
> * a primeira seria utilizar as API que roda neste cara, que seriam as
> 'CreateToolhelp32Snapshot', 'Process32First' e 'Process32Next'. O
> problema que neste caso não estou conseguindo fazer o Win32::API
> trabalhar legal com estas API, estou há várias horas tentando sem
> sucesso;
> 
> * a segunda é utilizar um software externo que lhe dê estas informações
> e aí você faz um parse dos dados.
> 
> Para a segunda opção, dê uma olhada no Handle
> (http://www.sysinternals.com/ntw2k/freeware/handle.shtml), com ele você
> pode fazer algo assim :
> <code>
> open ( PROCESS, "handle -a |" );
> 
> while ( <PROCESS> )
> {
>  # Faça o parse utilizando o $_
> }
> 
> close ( PROCESS );
> </code>
> 
> É isto aí.
> 
> Se eu conseguir uma ajuda com relação a primeira alternativa eu dou
> retorno.
> 
> Solli Moreira Honorio
> -----Original Message-----
> From: cascavel-pm-bounces em pm.org [mailto:cascavel-pm-bounces em pm.org] On
> Behalf Of Donato Azevedo
> Sent: sábado, 9 de abril de 2005 00:03
> To: Cascavel Perl Mongers
> Subject: [Cascavel-pm] Problema com Win32::Process::List
> 
> Pessoal, estou tentando pegar o nome dos processos rodando. Uso
> win98SE portanto nao da pra usar o Win32::Process::Info nem WMI...
> o que acontece com o Win32::Process::List é o seguinte:
> <code>
> use Win32::Process::List;
> my $P = Win32::Process::List->new();  #constructor
> my @list = $P->GetProcesses();        #returns an array of hashes
> my %h = %{ $list[0] };        #get the hash with processname and pid
> foreach my $pr ( keys %h ) {
>        print "Process $pr has PID " .  $h{$pr} . "\n";
> }
> </code>
> <result>
> Cant load path/List.dll for module Win32::Process::List load_file:Um
> dispositivo anexado ao sistema nao esta funcionando at procinfo.pl
> line 3
> 
> erro repotado pelo dynaloader.pm
> 
> ALGUEM SABE O QUE FAZER?
> 
> para instalar o win32::Process::List:
> ppm install http://www.bribes.org/perl/ppm/Win32-Process-List.ppd
> 
> Abraços!!
> 
> --
> *******************************************
>              Donato Azevedo
> Engenharia de Controle e Automação
>                      UFMG
> *******************************************
> We will encourage you to develop the three great virtues
> of a programmer: laziness, impatience, and hubris.
>    "Larry Wall - Programming perl"
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 


-- 
*******************************************
              Donato Azevedo
Engenharia de Controle e Automação
                      UFMG
*******************************************
We will encourage you to develop the three great virtues
of a programmer: laziness, impatience, and hubris.
    "Larry Wall - Programming perl"