Page 1 of 1
Load per perl-script abfragen ?
Posted: 2004-11-22 16:24
by demux
Gibt es eine möglichkeit per perl-script den load des systemes abzufragen um dann gewisse scripte nicht auszuführen!?
Ich möchte scripte nur ausführen wenn das system gerade idle ist.
Re: Load per perl-script abfragen ?
Posted: 2004-11-22 17:20
by dogholiday
So das script sollte dir was weiterhelfen:
Code: Select all
#!/usr/bin/perl -w
my @lines = `uptime`;
($load) = ($lines[0] =~ /average:s*([0-9.]+)/);
print $load."n";
Re: Load per perl-script abfragen ?
Posted: 2004-11-22 17:31
by demux
Cool, danke dogholiday :-)
Re: Load per perl-script abfragen ?
Posted: 2005-07-11 19:30
by dani_ch
dieses skript gibt den serverload der letzten minute durch. ich hätte gerne die der letzten 15 minuten. aber irgendwie schaffe ich es nicht, das skript anzupassen, dass es klappt.
kann mir da jemand helfen?
Re: Load per perl-script abfragen ?
Posted: 2005-07-24 13:45
by mrmage
Hi Dani,
Versuchs mal damit:
Code: Select all
#!/usr/bin/perl -w
my @lines = `uptime`;
($load1, $load5, $load15) = ($lines[0] =~ /average:s*([0-9.]+)s*([0-9.]+)s*([0-9.]+)/);
print $load15."n";
Bin mir aber nicht sicher ob das funktioniert, habe lange Zeit nicht mehr mit Perl gearbeitet.
Gruß
MrMage
Re: Load per perl-script abfragen ?
Posted: 2005-08-03 11:54
by rob
Dani_CH wrote:dieses skript gibt den serverload der letzten minute durch. ich hätte gerne die der letzten 15 minuten. aber irgendwie schaffe ich es nicht, das skript anzupassen, dass es klappt.
kann mir da jemand helfen?
sub GetLoad
{
open(PROC,"/proc/loadavg"); # /proc/loadavg aufmachen
my $load=scalar(<PROC>); # lesen
close(PROC); # schließen
return((split(/ /,$load))[0..2]); #zurueckgeben
}
gibt die 3 Werte als Array zurück.