Date: Wed, 08 Aug 2001 08:53:21 +0200 From: "F. Xavier Noria" <fxn@retemail.es> To: freebsd-questions@FreeBSD.ORG Subject: Re: Perl Script Message-ID: <3B70E1E1.C90E7132@retemail.es> References: <001301c11fbc$69475600$4fcc4518@Gray1>
next in thread | previous in thread | raw e-mail | index | archive | help
: Does anyone have an example of a Perl script that constantly loops : and checks the loadaverage of a machine, if the loadaverage is : over a certain amount then it will stop and restart a program or : program(s) This would be a way: $max_load = 4.0; # for instance $period = 60; # seconds sub restart_programs { # restart programs } while () { $uptime = `/usr/bin/uptime`; ($avg1, $avg5, $avg15) = $uptime =~ /averages: ([\d.]+), ([\d.]+), ([\d.]+)/; restart_programs if $avg5 > $max_load; # for example sleep $period; } -- fxn To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-questions" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?3B70E1E1.C90E7132>