查看用户LSF的CPU时间的perl脚本

时间：2006-01-07 来源：icymoon

#!/usr/bin/perl my $i; sub usage()
{
        print "Usage: $0 <usrname_file> ";
        exit;
} sub err_exit($)
{
        print "$_[0] ";
        exit;
} if(not defined($ARGV[0]))
{
        usage();
}
else
{
        chomp($ARGV[0]);
} if(-f $ARGV[0])
{
        @users=`cat $ARGV[0]`;
        chomp(@users);
}
else
{
        err_exit("Would you please give me a filename?");
} for($i = 0; $i <= $#users; $i ++)
{
        print "$users[$i]       ";
        $init_info=`bacct -u $users[$i] | grep "Total CPU time" | awk '{print $5}'`;
        chomp($init_info);
        if($init_info =~ /.*No job was found satisfying.*/)
        {
                print "0 hours";
        }
        else
        {
                $time = $init_info/3600;
                print "$time hours ";
        }
}

相关阅读更多 +