Stefan Schererhttp://cpanratings.perl.org/dist/StefanScherer#6882
Rating: 5 stars
This debugger really saves my life!! I use this debugger from nearly everywhere: Unix, Windows, inside CGI scripts, inside server (Windows service) script calls etc.
On Unix you can redirect the DISPLAY environment in the BEGIN function and you are happy to debug Unix CGI scripts. It's always the same.
Great work!!Stefan SchererStefan Schererhttp://cpanratings.perl.org/dist/StefanScherer#6880
Rating: 4 stars
I've searched for a perl module to list all processes running on a Windows machine and receive PID, PPID and the command line. With this WMI module it is very simple and fast.
But I also had a problem to get command lines of processes of other logins. With the code AllowPriv() call this works with this WMI module.
Very smart module!!
use strict;
use DBI;
use Win32API::Registry qw(AllowPriv); # for AllowPriv()
AllowPriv("SeDebugPrivilege", 1);
my $dbh = DBI->connect('dbi:WMI:');
my $sth = $dbh->prepare(<<WQL);
SELECT * FROM Win32_Process
WQL
print join "\t", "PID", "PPID", "Process";
print "\n";
$sth->execute();
while (defined (my $row = $sth->fetchrow_arrayref())) {
my $ev = $row->[0];
my $ppid = $ev->{ParentProcessId} || "0";
my $pid = $ev->{ProcessId} || "0";
my $caption = $ev->{Caption} || "<system>";
my $path = $ev->{ExecutablePath} || "<unknown>";
my $cmdline = $ev->{CommandLine} || $caption;
print join "\t", $pid, $ppid, $cmdline;
print "\n";
}
Stefan SchererStefan Schererhttp://cpanratings.perl.org/dist/StefanScherer#6866
Rating: 4 stars
I've long waited for such module to access unicode file names and directory names as simple.
The documentation could be more complete, but there is a very self explaining API.
I will have a deeper test with our perl 5.8.8 and if the findW is better implemented than the original File::Find which only works on the posix API of the perl core which slows down on Samba drives.
Great work!!Stefan Scherer