Hola.
Tratando de hacer un tutorial, para poner aqui, me encontre en este problema.
Mirando uno ejemplos de Win32::Process::Info encontre que para saber el PID del programa no usan $$ si no que usan Win32::Ole, asi que, quiero saber el PID de el programa, ¿Uso $$ o uso Win32::Ole?
Gracias.
-
- Publicidad
PID en Windows ($$)
14 mensajes
• Página 1 de 2 • 1, 2
PID en Windows ($$)
por creating021 » 2006-07-21 19:42 @862
Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
Publicidad
por explorer » 2006-07-22 04:20 @222
Sacado de Win32::API:
pero me suena que tiene que haber otra forma...
- Código: Seleccionar todo
use Win32::API;
Win32::API->Import("kernel32", "int GetCurrentProcessId()");
$PID = GetCurrentProcessId();
pero me suena que tiene que haber otra forma...
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por creating021 » 2006-07-22 10:10 @465
al parecer si se puede usar $$ sin ningun problema, pue bien en el /t del pacquete lo ponen un codigo con esto.Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
Re: PID en Windows ($$)
por kidd » 2006-07-22 11:32 @522
creating021 escribiste:Hola.
Tratando de hacer un tutorial, para poner aqui, me encontre en este problema.
Cuando tengas el tutorial si quieres mándalo a [email protected] para que lo ponga en el sitio
Saludos
-
kidd - Creador de Perl en Español
- Mensajes: 1166
- Registrado: 2003-10-15 16:52 @744
- Ubicación: México
por creating021 » 2006-08-03 19:18 @845
Hola kidd, queres que lo reforme para que sea un tutorial de verdad?
Tengo el tiempo, solo dime si lo queres
Tengo el tiempo, solo dime si lo queres
Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
por creating021 » 2006-08-11 19:22 @848
En que formato?
Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
por creating021 » 2006-08-29 20:44 @905
Otra pregunta, antes de publicar:
¿Este código trabaja como debería?
Es que dudo del GetProcInfo($pid) ya que en el POD no lo trabajan así, si alguien tiene Windows me seria muy útil la respuesta para ponerle fín al tutorial
¿Este código trabaja como debería?
Using perl Syntax Highlighting
if($^O eq "MSWin32"){
use Win32::Process::Info;
my $proc = Win32::Process::Info->new();
my @pids = $proc->ListPids();
foreach my $pid (@pids){
print "$pid\s\s", join /\s\s/, $proc->GetProcInfo($pid);
print "\n";
}
}
use Win32::Process::Info;
my $proc = Win32::Process::Info->new();
my @pids = $proc->ListPids();
foreach my $pid (@pids){
print "$pid\s\s", join /\s\s/, $proc->GetProcInfo($pid);
print "\n";
}
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Es que dudo del GetProcInfo($pid) ya que en el POD no lo trabajan así, si alguien tiene Windows me seria muy útil la respuesta para ponerle fín al tutorial
Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
por kidd » 2006-08-29 21:21 @931
Hola:
Muy bien, ejecuté el siguiente código en mi Windows XP:
Y obtuve el siguiente resultado:
Muy bien, ejecuté el siguiente código en mi Windows XP:
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use strict;
if($^O eq "MSWin32"){
use Win32::Process::Info;
my $proc = Win32::Process::Info->new();
my @pids = $proc->ListPids();
foreach my $pid (@pids){
print "$pid", join " ", $proc->GetProcInfo($pid);
print "\n";
}
}
use strict;
if($^O eq "MSWin32"){
use Win32::Process::Info;
my $proc = Win32::Process::Info->new();
my @pids = $proc->ListPids();
foreach my $pid (@pids){
print "$pid", join " ", $proc->GetProcInfo($pid);
print "\n";
}
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Y obtuve el siguiente resultado:
Using bash Syntax Highlighting
0HASH(0x1a624ec)
4HASH(0x1a622c4)
652HASH(0x1a61eb0)
720HASH(0x19c0f3c)
748HASH(0x1a62798)
792HASH(0x1a6281c)
812HASH(0x1a626cc)
972HASH(0x1a61dd8)
1020HASH(0x1a62900)
1128HASH(0x1a61ff4)
1172HASH(0x1a627ec)
1240HASH(0x1a62108)
1492HASH(0x1a62084)
1748HASH(0x1a61ea4)
1848HASH(0x1a61dcc)
1856HASH(0x1a626f0)
1884HASH(0x19c0f78)
1896HASH(0x1a6203c)
1968HASH(0x1a62588)
1988HASH(0x1a61f64)
2036HASH(0x19c0f84)
220HASH(0x1a62804)
276HASH(0x19c0db0)
312HASH(0x1a623e4)
408HASH(0x1a51e60)
3240HASH(0x1a62198)
848HASH(0x1a626c0)
3524HASH(0x1a62264)
4040HASH(0x1a6215c)
1320HASH(0x1a628c4)
4044HASH(0x1a51e30)
3360HASH(0x1a6221c)
2388HASH(0x1a51ecc)
1092HASH(0x1a61d54)
3856HASH(0x1a62000)
4HASH(0x1a622c4)
652HASH(0x1a61eb0)
720HASH(0x19c0f3c)
748HASH(0x1a62798)
792HASH(0x1a6281c)
812HASH(0x1a626cc)
972HASH(0x1a61dd8)
1020HASH(0x1a62900)
1128HASH(0x1a61ff4)
1172HASH(0x1a627ec)
1240HASH(0x1a62108)
1492HASH(0x1a62084)
1748HASH(0x1a61ea4)
1848HASH(0x1a61dcc)
1856HASH(0x1a626f0)
1884HASH(0x19c0f78)
1896HASH(0x1a6203c)
1968HASH(0x1a62588)
1988HASH(0x1a61f64)
2036HASH(0x19c0f84)
220HASH(0x1a62804)
276HASH(0x19c0db0)
312HASH(0x1a623e4)
408HASH(0x1a51e60)
3240HASH(0x1a62198)
848HASH(0x1a626c0)
3524HASH(0x1a62264)
4040HASH(0x1a6215c)
1320HASH(0x1a628c4)
4044HASH(0x1a51e30)
3360HASH(0x1a6221c)
2388HASH(0x1a51ecc)
1092HASH(0x1a61d54)
3856HASH(0x1a62000)
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
-
kidd - Creador de Perl en Español
- Mensajes: 1166
- Registrado: 2003-10-15 16:52 @744
- Ubicación: México
por creating021 » 2006-08-30 15:27 @685
El número antes del HASH.* es el PID, sale sin problema, el resto es porque sale como un hash, supongo así que con un hash queda bien.Si no es mucha molestia, ¿Puedes intentar este orto?
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use diagnostics;
if($^O eq "MSWin32"){
use Win32::Process::Info;
my $proc = Win32::Process::Info->new();
my @pids = $proc->ListPids();
foreach my $pid (@pids){
my %inf = $proc->GetProcInfo($pid);
print "$pid => ", join "\n:\t", (sort keys %inf);
print "\n";
}
}
use diagnostics;
if($^O eq "MSWin32"){
use Win32::Process::Info;
my $proc = Win32::Process::Info->new();
my @pids = $proc->ListPids();
foreach my $pid (@pids){
my %inf = $proc->GetProcInfo($pid);
print "$pid => ", join "\n:\t", (sort keys %inf);
print "\n";
}
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Que pena.Si no es asi, será con Data::Dumper
Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
14 mensajes
• Página 1 de 2 • 1, 2
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados