Давайте меряться :)

:)

Uptime (days):  8====D
Memory (MB/20): 8=========================D
CPU (MHz/50):   8==============================D
Kernel version: 8==================================D

Убрал часть кодоповторения:

!/usr/bin/perl
sub print_chlen{
    print $_[0] . ' 8' . '=' x $_[1] . "D\n";
}

`uptime`=~/(\d+)\sdays/;print_chlen("Uptime (days): ", $1);
`free | grep Mem`=~/(\d+)/; print_chlen("Memory (MB/20):", $1/20000);
`cat /proc/cpuinfo | grep MHz`=~/(\d+)/; print_chlen("CPU (MHz/50):  ", $1/50);
`uname -r`=~/(\d+)\.(\d+).(\d+)/;print_chlen("Kernel version:", ($2*10+$3)/2);

Uptime (days):  8===D
Memory (MB/20): 8===================================================D
CPU (MHz/50):   8==================================================D
Kernel version: 8=====================================D

а чиво у всех такие длинные??? 8)

Uptime (days):8======================================================================== ================================================================================ ================================================================================ ================================================================================ ================================================================================ ===================D Memory (MB/20):8======================================================================= ================================================================================ ================================================================================ ================================================================================ ================================================================================ ====================D CPU (MHz/50):8====================================================================== ================================================================================ ================================================================================ ================================================================================ ================================================================================ =====================D Kernel version:8======================================================================= ================================================================================ ================================================================================ ================================================================================ ================================================================================ ====================D

ого че вышло...

как видите у меня приходится вокруг ноги обматывать 8)

Плохой дизайн:) так лучше:

#!/usr/bin/perl
sub chlen{
    return ' 8' . '=' x $_[0] . "D\n";
}

`uptime`=~/(\d+)\sdays/;print "Uptime (days): " . chlen($1);
`free | grep Mem`=~/(\d+)/; print "Memory (MB/20):" . chlen($1/20000);
`cat /proc/cpuinfo | grep MHz`=~/(\d+)/; print "CPU (MHz/50):  " . chlen($1/50);
`uname -r`=~/(\d+)\.(\d+).(\d+)/;print "Kernel version:" . chlen(($2*10+$3)/2);

добавил два новых датчика:

#!/usr/bin/perl
sub chlen{
    return ' 8' . '=' x $_[0] . "D\n";
}

`uptime`=~/(\d+)\sdays/;print "Uptime (days): " . chlen($1);
`free | grep Mem`=~/(\d+)/; print "Memory (MB/20):" . chlen($1/20000);
`cat /proc/cpuinfo | grep MHz`=~/(\d+)/; print "CPU (MHz/50):  " . chlen($1/50);
`uname -r`=~/(\d+)\.(\d+).(\d+)/;print "Kernel version:" . chlen(($2*10+$3)/2);
print "Num. processes:" . chlen(`ps ax|wc -l`/2);
print "Load average:  " . chlen(`cat /proc/loadavg|cut -f 1 -d ''`*100);

Я тут подумал, ведь можно же это на десктоп как-нть положить... torsmo будет отдыхать :D

Право неловко, я стесняюсь.

Uptime (days):  8D
Memory (MB/20): 8============D
CPU (MHz/50):   8========================================D
Kernel version: 8===================================D
Num. processes: 8===============================================D
Load average:   8===============================================================================
=D

Uptime (days): 8=======================D
Memory (MB/20): 8===================================================D
CPU (MHz/50): 8===========================D
Kernel version: 8==================================D
Num. processes: 8===================================================D
Load average: 8D

Простаивает сервачок... ))

выдрал из другой членомерки =)

#!/usr/bin/perl
sub chlen{
    return ' 8' . '=' x $_[0] . "D\n";
}

`uptime`=~/(\d+)\sdays/;print "Uptime (days): " . chlen($1);
`free | grep Mem`=~/(\d+)/; print "Memory (MB/20):" . chlen($1/20000);
`cat /proc/cpuinfo | grep MHz`=~/(\d+)/; print "CPU (MHz/50):  " . chlen($1/50);
`uname -r`=~/(\d+)\.(\d+).(\d+)/;print "Kernel version:" . chlen(($2*10+$3)/2);

my @df = `df -P -k -x nfs` or die "Could not run $df\n";
shift @df;
for (@df) {
    my ($fs, $blocks) = split;
    $blocks *= 2 if $fs =~ m!/scsi|/sd!;
    $size += $blocks/1024/750;
}

print "Num. processes:" . chlen(`ps ax|wc -l`/2);
print "Load average:  " . chlen(`cat /proc/loadavg|cut -f 1 -d ''`*100);
print "Load average:  " . chlen(`cat /proc/loadavg|cut -f 1 -d ''`*100);
print "Disk space:    " . chlen($size/50);

итого

[verna@ontpc3 verna]$ perl cm.pl 
Uptime (days):  8===D
Memory (MB/20): 8===================================================D
CPU (MHz/50):   8=======================D
Kernel version: 8=====================================D
Num. processes: 8==========================================================D
Load average:   8=======================================D
Load average:   8=======================================D
Disk space:     8=================D

только вот хз в чём... не соображу никак. У меня суммарный 319Гб.

Uptime (days): 8=================D
Memory (MB/20): 8============D
CPU (MHz/50): 8========================================D
Kernel version: 8===================================D
Num. processes: 8=========================================
==================================D
Load average: 8=========================================
==========================================================
==========================================================
==========================================================
==========================================================
=======================================================D

блин...

это на работе:

eill@sysadmin:~$ perl chlen.pl
Uptime (days):  8D
Memory (MB/20): 8=========================D
CPU (MHz/50):   8==================================D
Kernel version: 8====================================D
Num. processes: 8=========================================D
Load average:   8=============================================================D
Load average:   8=============================================================D
Disk space:     8D
eill@sysadmin:~$ uptime
 09:24:35 up 21:53,  3 users,  load average: 0.56, 1.08, 1.26
eill@sysadmin:~$ 

Uptime (days):  8=====D
Memory (MB/20): 8============D
CPU (MHz/50):   8===================================D
Kernel version: 8===================================D
Num. processes: 8==========================D
Load average:   8===============================================================================
========================D

Uptime (days):  8=============D
Memory (MB/20): 8=====D
CPU (MHz/50):   8========================================D
Kernel version: 8==================================D
Num. processes: 8==================================D
Load average:   8====D

У меня тоже вот почти впустую молотит :)

Uptime (days):  8==================D
Memory (MB/20): 8===================================================D
CPU (MHz/50):   8===============================================D
Kernel version: 8===================================D

> патчи и дополнения приветствуются :)

нифига не работает ваша членомерка... :-/

$ ./up1
Uptime (days):  8D
free: not found
Memory (MB/20): 8D
cat: /proc/cpuinfo: No such file or directory
CPU (MHz/50):   8D
Kernel version: 8===============================================================================
================================================================================
================================================================================
================================================================================
================================================================================
================================================================================
=====================D

// wbr

дык она только под линакс портирована видимо ;) бздуны отдыхают

> дык она только под линакс портирована видимо ;) бздуны отдыхают

AFAIU судя по всему действительно так. что поделать, не рассчитана линупцовая членомерка на такие размеры.. not scalable :-/

// wbr

Uptime (days): 8===D

Memory (MB/20): 8========================D

CPU (MHz/50): 8============================================================D

Kernel version: 8=====================================D

Num. processes: 8=============================================================D

Load average: 8=============================================================================== ==========================D

Disk space: 8================D

Ждем членомерки под БСД, а то у меня все сервера под ней, меряться нечем:(

Uptime (days): 8================D
Memory (MB/20): 8=========================D
CPU (MHz/50): 8========================================================D
Kernel version: 8==================================D
Num. processes: 8=====================D
Load average: 8D

>Load average: 8D

6 клиентов всего...

Боян, еще и бородатый.
Года 2 назад уже мерялись, здесь же.

> Боян, еще и бородатый. Года 2 назад уже мерялись, здесь же.

ну и что? а вдруг кто-то внял гласу penis enlargement? или сменил вероисповедание? интересно же посмотреть на результаты..

// wbr

А версия под GTK, QT, Looking Glass, в трехмерном виде есть? Чтобы сразу в раздел скриншотов.

Гыг, вот ;)

scream@nexus:~/work$ perl chlen
Uptime (days): 8D
Memory (MB/20): 8============D
CPU (MHz/50): 8=================D
Kernel version: 8=====================================D
Num. processes: 8================================D
Load average: 8=============================================================================== ==================================D
Disk space: 8D
scream@nexus:~/work$

Самая свежая версия 4lenomer'а!
(Требуется дополнительный тест со scsi!)

#!/usr/bin/perl

sub chlen{
        return ' 8' . '=' x $_[0] . "D\n";
}

sub diskspace{
        my @df = `df -P -k -x nfs -x smbfs -x tmpfs` or die "Could not run 'df'\n";
        my $size;
        shift @df;
        for (@df) {
                my ($fs, $blocks) = split;
                $size += ($blocks/1048576);
        }
        return $size;
}

sub uptime(){
        `uptime`=~/(\d+)\sdays/;
        return $1;
}

sub mem(){
        `free | grep Mem`=~/(\d+)/;
        return $1;
}

sub cpu(){
        `cat /proc/cpuinfo | grep MHz`=~/(\d+)/;
        return $1;
}

sub kern(){
        `uname -r`=~/(\d+)\.(\d+).(\d+)/;
        return ($2,$3);
}

sub numproc(){
        return`ps ax|wc -l`;
}

sub lavg(){
        return `cat /proc/loadavg | cut -f 1 -d ' '`;
}

sub swpstat(){
        `free | grep Swap:`=~/(\d+)\s+(\d+)/;
        return (($1/1024),(($2/$1)*100));
}

print "Uptime (days):    " . chlen(uptime());
print "Memory (MB/20):   " . chlen(mem()/20000);
@swres = swpstat();
print "Swap all (MB/10): " . chlen(@swres[0]/10);
print "Swap used %:      " . chlen(@swres[1]);
print "CPU (MHz/50):     " . chlen(cpu()/50);
@kres = kern();
print "Kernel version:   " . chlen((@kres[0]*10+@kres[1])/2);
print "Num. proc.(/2):   " . chlen(numproc()/2);
print "Load avg. (*50):  " . chlen(lavg()*50);
print "Diskspace (GB/5): " . chlen(diskspace()/5);


А вот мой домашний комп:
$4lenomer 
Uptime (days):     8D
Memory (MB/20):    8=======D
Swap all (MB/10):  8=======================D
Swap used %:       8========================D
CPU (MHz/50):      8========D
Kernel version:    8===================================D
Num. proc.(/2):    8=======================================D
Load avg. (*50):   8=============================================================D
Diskspace (GB/5):  8===========D

PS: И не смотрите что uptime короткий, зато load avg длинный :)
PPS: Портируйте под BSD, я только спасибо скажу :) а то я сам не очень в BSD :/ (ну не сложилось у меня с BSD, хоть я и старался подружиться)
PPPS: Покритикуйте косяки в perl-коде, а то я фактически новичек в этом деле, мне как-то на РНР да на C/С++ привычнее :)

кхм... дерзайте дальше, однако

$ ./up
Uptime (days):     8D
free: not found
Memory (MB/20):    8D
free: not found
Illegal division by zero at ./up line 48.

// wbr

> А версия под GTK, QT, Looking Glass, в трехмерном виде есть? Чтобы сразу в раздел скриншотов.

У меня есть только бредовая идея написать qt или X frontend для этого дела, но это позже, если проект не помрет :/

[zakon@core ~]$ chlenomer.pl
Uptime (days): 8===============================D
Memory (MB/20): 8=========================D
Swap all (MB/10): 8=================================================D
Swap used %: 8====================D
CPU (MHz/50): 8=============================D
Kernel version: 8===================================D
Num. proc.(/2): 8=====================================================================D
Load avg. (*50): 8D
Diskspace (GB/5): 8============D

исправил:
`cat /proc/cpuinfo | grep 'cpu MHz'`=~/(\d+)/;

Uptime (days):  8D
Memory (MB/20): 8=========================D
CPU (MHz/50):   8===============================================D
Kernel version: 8====================================D

А вот этот машинко считает квантовую химию... Бедолага...))


Uptime (days):  8====================================================
==============================================D
Memory (MB/20): 8===================================================D
CPU (MHz/50):   8========================================D
Kernel version: 8==================================D
Num. processes: 8========================D
Load average:   8====================================================
=====================================================================
=====================================================================
=====================================================================
============================D

ещё парочка сервачков:

Uptime (days): 8=============================================================================== ================================================================================ =====================================D Memory (MB/20): 8===================================================D Swap all (MB/10): 8=============================================================================== ================================================================================ =============================================D Swap used %: 8=======D CPU (MHz/50): 8========================================================D Kernel version: 8==============================D Num. proc.(/2): 8======================================D Load avg. (*50): 8=D Diskspace (GB/5): 8=============D

Uptime (days): 8=============================================================================== ================================================================================ =====================================D Memory (MB/20): 8===================================================D Swap all (MB/10): 8=============================================================================== ================================================================================ ========================================D Swap used %: 8===============================D CPU (MHz/50): 8========================================================D Kernel version: 8==============================D Num. proc.(/2): 8============================================D Load avg. (*50): 8D Diskspace (GB/5): 8========================================D

Uptime (days): 8===D Memory (MB/20): 8===================================================D Swap all (MB/10): 8=============================================================================== =======================D Swap used %: 8D CPU (MHz/50): 8===========================================D Kernel version: 8========================D Num. proc.(/2): 8=============================================================================== ================================================================================ ==============================================================D Load avg. (*50): 8================================================D Diskspace (GB/5): 8=============D

Uptime (days): 8===D Memory (MB/20): 8===================================================D Swap all (MB/10): 8==================================================D Swap used %: 8================D CPU (MHz/50): 8===========================================D Kernel version: 8========================D Num. proc.(/2): 8=====================================D Load avg. (*50): 8============================================================D Diskspace (GB/5): 8==========================D

Uptime (days): 8=============================================================================== ================================================================================ ================================================================================ ================================================================================ ================================================================================ ========================D Memory (MB/20): 8===================================================D Swap all (MB/10): 8D CPU (MHz/50): 8===============================================D Kernel version: 8==============================D Num. proc.(/2): 8=============================================================================== ================D Load avg. (*50): 8==D Diskspace (GB/5): 8======D

Блин... вчера только перезагрузил, 30 дней было...

Uptime (days):  8D
Memory (MB/20): 8===================================================D
CPU (MHz/50):   8===============================================D
Kernel version: 8====================================D
Num. processes: 8===========================================================D
Load average:   8=========D

artem@debian:~$ ./test.pl
Uptime (days):     8==D
Memory (MB/20):    8=========================D
Swap all (MB/10):  8===============================================================================
================D
Swap used %:       8D
CPU (MHz/50):      8=======================================================D
Kernel version:    8=====================================D
Num. proc.(/2):    8================================D
Load avg. (*50):   8=====D
Diskspace (GB/5):  8================================D

debian sarge, 2.6.14.3

Пожалуйста, используйте самую последнюю версию 4lenomer'а, а не ту что в первом посте :)

>#!/usr/bin/perl
"#!" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

кривая членомерка

Свяжись со мной, лучше через jabber ну или icq (в профайле)

Uptime (days):     8============================================================
================================================================================

======================================D
Memory (MB/20):    8============D
Swap all (MB/10):  8================================================D
Swap used %:       8=========D
CPU (MHz/50):      8========================================D
Kernel version:    8=================================D
Num. proc.(/2):    8====================================D
Load avg. (*50):   8D
Diskspace (GB/5):  8====D

сцуки , два часа назад ups опять сдох.
coder:~$ perl 4lenomer.pl
Uptime (days): 8D
Memory (MB/20): 8=========================D
Swap all (MB/10): 8=======================D
Swap used %: 8D
CPU (MHz/50): 8D
Kernel version: 8==================================D
Num. proc.(/2): 8===========================================D
Load avg. (*50): 8=D
Diskspace (GB/5): 8==========================================D


hp:~$ perl 4lenomer.pl
Uptime (days): 8D
Memory (MB/20): 8=============================================================================== ========================D
Swap all (MB/10): 8=============================================================================== ================D
Swap used %: 8D
CPU (MHz/50): 8=======================================================D
Kernel version: 8==================================D
Num. proc.(/2): 8===D
Load avg. (*50): 8=====D
Diskspace (GB/5): 8==============D

> CPU (MHz/50): 8D
Классный сервер :)

Uptime (days): 8D Memory (MB/20): 8============D CPU (MHz/50): 8=======================D Kernel version: 8===================================D Num. processes: 8==============================================D Load average: 8=============D

мне стыдно:)

Uptime (days):  8D
Memory (MB/20): 8============D
CPU (MHz/50):   8=======================D
Kernel version: 8===================================D
Num. processes: 8==============================================D
Load average:   8=============D

так лучше

В чате:
- Вась, а у тебя член стоит?
- Да, а что?
- Да вот, мне все говорят, что я - импотент, потому что у меня член не
стоит...
- А я-то тебе чем могу помочь?
- Дай скачать!

$ ~/bin/4lenomer
Uptime (days): 8D
Memory (MB/20): 8============D
CPU (MHz/50): 8============D
Kernel version: 8=====================================D
Num. processes: 8=======================================================D
Load average: 8=============================================================================== ================================================================================ ==================================D
Load average: 8=============================================================================== ================================================================================ ==================================D
Disk space: 8=D

по новой =)

Uptime (days):     8===D
Memory (MB/20):    8===================================================D
Swap all (MB/10):  8=======================================================D
Swap used %:       8D
CPU (MHz/50):      8==============================================D
Kernel version:    8=====================================D
Num. proc.(/2):    8==========================================================D
Load avg. (*50):   8========================================================================D
Diskspace (GB/5):  8=====================================================================D

update

Uptime (days):     8======D
Memory (MB/20):    8============D
Swap all (MB/10):  8=========================================================D
Swap used %:       8=====D
CPU (MHz/50):      8===================================D
Kernel version:    8===================================D
Num. proc.(/2):    8==========================D
Load avg. (*50):   8======================================================D
Diskspace (GB/5):  8=====D

Имхо при выводе стоит выводить один суммарный член, как среднее арфиметическое всех остальных. Меряться будет удобнее...

Так какая текущая версия? Дай-та я тоже померюсь...

Моя :)

А у меня длиннее:)