Hmm, just tried it with my fix and it worked just fine. Oh yeah, and use strict!
UPDATE: For it to do what you want it to try this:
UPDATE2: updated code with some semblance of strict
#/usr/bin/perl -w
use Win32::IProcess;
use strict ;
my $process = new Win32::IProcess || die "Unable to create new process
+!: $!\n";
my @processlist ;
$process -> EnumProcesses(\@processlist) || die "Unable to get process
+ list: $!\n";
my $count = 0;
foreach $process(@processlist)
{
my $pid = $process ->{ProcessId};
my $name = $process->{ProcessName};
if ($count <= $#processlist)
{
$count++;
}
format STDOUT_TOP =
Number Process Name Process Id
====== =================== =============
.
format STDOUT =
@<<<< @<<<<<<<<<<<<<<<<<<< @<<<<
$count, $name, $pid
.
write;
}
You only asked for help with your while loop, and I fixed it. the above code fixes ALL your issues
"Nothing is sure but death and taxes" I say combine the two and its death to all taxes! |