view release on metacpan or  search on metacpan

scripts/iost+  view on Meta::CPAN

#!/usr/local/bin/perl -w

use strict;
use Solaris::MapDev qw(inst_to_dev);
use Solaris::Kstat;
use POSIX qw(uname strftime);

################################################################################

sub ns($$)
{
my ($val, $width) = @_;
my $prec = $width - length(int($val)) - 1;
return(sprintf("%*.*f ", $width, $prec, $val));
}

################################################################################
# Main

my ($interval, $count) = @ARGV;