#/usr/bin/perl -w use Win32::IProcess; $process = new Win32::IProcess || die "Unable to create new process!: +$!\n"; $process -> EnumProcesses(\@processlist) || die "Unable to get process + list: $!\n"; foreach $process(@processlist){ $pid = $process ->{ProcessId}; $name = $process->{ProcessName}; $count = 0; while($count < $process(@processlist)){ $count++; } format STDOUT_TOP = Number Process Name Process Id ====== =================== ============= . format STDOUT = @<<<< @<<<<<<<<<<<<<<<<<<< @<<<< $count, $name, $pid . write; }
In reply to While count ---don't see it by curtisb
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |