- 论坛徽章:
- 1
|
我的代码,环境是suselinux,但是加入这段代码后后续的正常代码就执行不了了,只是不断打印资源占用情况:
sub test1
{
while (1)
{
my $mem_usage = `free -m | awk '{if(NR=="3") print \$4/(\$3+\$4)}'`;
chomp($mem_usage);
my $cpu_usage = `vmstat 1 3 | awk -F" " '{if(NR=="5") print (100-\$15)/100}'`;
chomp($cpu_usage);
if ($mem_usage<0.8 && $cpu_usage<0.7)
{
print "Now mem_usage is " . $mem_usage . ", cpu_usage is " . $cpu_usage . "\n";
}
else
{
print "Now mem_usage is " . $mem_usage . ", cpu_usage is " . $cpu_usage . "\n";
print "The system resource is not enough to run , so quit!\n";
exit(1);
}
}
}
&test1; |
|