Reviews by Stefan Scherer

cpanratings
 

RSS

Devel-ptkdb (1.1091) *****

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 Scherer - 2010-02-04T06:06:49 (permalink)

1 out of 1 found this review helpful. Was this review helpful to you?  Yes No

DBD-WMI (0.06) ****

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 Scherer - 2010-02-04T06:03:11 (permalink)

Was this review helpful to you?  Yes No

Win32-Unicode (0.11) ****

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 - 2010-02-02T08:36:39 (permalink)

Was this review helpful to you?  Yes No