#!/usr/bin/perl -w
# psrinfo.perl: emulate the Solaris psrinfo command
use strict;
use Sun::Solaris::Kstat;
my $kstat = Sun::Solaris::Kstat->new();
my $mh = $kstat->{cpu_info};
foreach my $cpu (keys(%$mh)) {
my ($state, $when) = @{$kstat->{cpu_info}{$cpu}
{"cpu_info".$cpu}}{qw(state state_begin)};
my ($sec,$min,$hour,$mday,$mon,$year) =
(localtime($when))[0..5];
printf("%d\t%-8s since %.2d/%.2d/%.2d %.2d:%.2d:%.2d\n",
$cpu,$state,$mon + 1,$mday,$year - 100,$hour,$min,$sec);
}