Practice of Programmingps -e で見えるプロセスの数を数えるもの #!/usr/bin/perl use strict; my($sleep, $cnt) = @ARGV; foreach(0 .. $cnt){ my $ps = `ps -e`; my %hash; print "=========================================================\n"; foreach(split /\n/, $ps){ s/^\s+//; $hash{(split /\s+/)[3]}++ } print map{$hash{$_} > 1 ? sprintf("%-20s%s\n",$_ ,$hash{$_}) : "" }sort{$hash{$b} <=> $hash{$a}} keys %hash; sleep $sleep; } pscnt 5 100 vmsta
