И не просто ужас..

[dil]

Если вы немножечко знаете, что такое перл и как его использовать, то

#!/usr/bin/perl

#get load avg for 5;15;30 min
open(PROCESS,"uptime |");
$avg = ;
$avg =~ s/.*:\s*//;
close(PROCESS);

if ($ARGV[0] eq "5") {
	$avg = `echo "$avg" | awk '\{print \$1 \}'`;
}

if ($ARGV[0] eq "15") {
	$avg = `echo "$avg" | awk '\{print \$2 \}'`;
}

if ($ARGV[0] eq "30") {
	$avg = `echo "$avg" | awk '\{print \$3 \}'`;
}

chomp $avg;
$avg =~ s/,//;
$avg =~ s/\n//;
print $avg;

Это написал не ученик первого класса школы для умственно отсталых программистов. Это альтернативно одарённые авторы cacti. Взято из свежего дистрибутива.

Comments

[alexkuklin.livejournal.com]

"легким движением руки превратим AMD65 X2 в IBM PC XT"

это в code_wtf надо

[alexkuklin.livejournal.com]

AMD64 разумеется

[besm6.livejournal.com]

Зря поправился...

[alexkuklin.livejournal.com]

эээ? :)

[besm6.livejournal.com]

С 65 как-то интереснее смотрелось.