Select Code to Download

use strict ;
use warnings ;
...
__END__

Win32::Process::Info is required to get process by name at C:/Strawber
+ry/perl/site/lib/Win32/Process/Memory.pm line 35.

Use of uninitialized value in lc at C:/Perl64/site/lib/Win32/Process/M
+emory.pm line 38.

 
        foreach ( Win32::Process::Info->new( '', 'NT' )->GetProcInfo )
+ {
            if ( lc( $_->{Name} ) eq $pargs->{name} ) { ######## Line 
+38
                $pargs->{pid} = $_->{ProcessId};

use strict ;
use warnings ;
...
    print '*'x75, "\n";
}

[...]
$VAR1 = {
...
          'ReadOperationCount' => 77
        };
**********************************************************************
+*****

use strict ;
use warnings ;
...
        };
**********************************************************************
+*****

$pi = Win32::Process::Info->new ([machine], [variant], [hash])
This method instantiates a process information object, connected to th
+e given machine, and using the given variant.
...
WMI - Uses the Windows Management Implementation. Good on Win2K, ME, a
+nd possibly others, depending on their vintage and whether WMI has be
+en retrofitted.

The initial default variant comes from environment variable PERL_WIN32
+_PROCESS_INFO_VARIANT. If this is not found, it will be 'WMI,NT,PT', 
+which means to try WMI first, NT if WMI fails, and PT as a last resor
+t. This can be changed using Win32::Process::Info->Set (variant => wh
+atever).

use strict ;
use warnings ;
...
ok1
hi 3
.....(hangs here)

    # get process handle by command line name
    if ( defined( $pargs->{name} ) ) {
...
    return $sum;
}