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

[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 надо

[romikchef]

Аналогичный случай был у нас в Чешских Будейовицах.
http://phorror.livejournal.com/31304.html
это ни разу не продвинутая библиотека, это простой советский программист.
но, по-моему, тоже весьма достойно.

[b-a-t.livejournal.com]

Да ладно, он на php написан :) Там и остальные скрипты жгут, типа:

open(PROCESS, "/bin/bash -c wget http://....");

или open(PROCESS, " who | grep -c |");

В общем - это кто-то обернул шелл скрипты в перл и городо отрапортовал - я на Перле все переписал :)

[webushka.livejournal.com]

Странные люди. Результат open'а не проверяют и из регулярных выражений знают и умеют исключительно поиск-и-замену, заменяя остальное awk.
Это явно шелловский скрипт перепетый на перле в лоб.

[dkfl.livejournal.com]

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

:) В таком духе и на shell люди пишут:

[poige.livejournal.com]

http://poige.livejournal.com/180513.html

[andjel.livejournal.com]

Ахтунг!
А где -w ?

[k001.livejournal.com]

Я видел такие "программы на перле", там ещё и греп использовался. Непонятно, почему в таком случае на shell не написать, или уж сразу полностью на awk.