Computers: April 2007 Archives
If you can, please try this script out, using the latest Mac::Carbon (0.77). Especially on Intel.
#!/usr/bin/perl -wLet me know what platform you are using, and if the script terminates (as opposed to it just printing the same $psn forever (have your ctrl-C ready!)).
use Mac::Processes;
while ( ($psn, $psi) = each(%Process) ) {
print $psi->processName, ' ' if $psi;
print "$psn\n";
}
"It is the common fate of the indolent to see their rights become a prey to the active. The condition upon which God hath given liberty to man is eternal vigilance; which condition if he break, servitude is at once the consequence of his crime and the punishment of his guilt."
