Load per perl-script abfragen ?

[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.

[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";

[demux]

Cool, danke dogholiday :-)

[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?

[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

[rob]

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.