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

[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

[dkfl.livejournal.com]

это не perl ни разу, ну кроме open(). это хуй знает что.