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