LINUX.ORG.RU
Форум — Talks  

А давайте меряться?


0

0 

Копался в старых закладках, нашел вот такое: http://www.linux.org.ru/view-message.jsp?msgid=1169236

========= chlenomer.pl ========

#!/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/20): " . chlen(@swres[0]/20);
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/10): " . chlen(diskspace()/10);

======== end chlenomer.pl ===========

$ perl chlenomer.pl
Uptime (days):     8===D
Memory (MB/20):    8==============================================================================
=========================D
Swap all (MB/20):  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/10):  8==============================================================================
================================================================================
====D
Deleted
← [радиодетали] напимните прогу.
Самый «красивый» дистрибьютив ? →
 ← 1 2 

demon37@localhost ~ $ ./my.pl

Uptime (days):     8========D
Memory (MB/20):    8=========================D
Swap all (MB/20):  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/10):  8================D

Demon37 ★★★★
()

Мне ссыкатно одну строчку на пёрле запускать, а тут их куча =)

PolarFox ★★★★★
()

Uptime (days): 8D
Memory (MB/20): 8===================================================D
Swap all (MB/20): 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/10): 8======================D

PolarFox ★★★★★
() 

Uptime (days):     8D
Memory (MB/20):    8=========D
Illegal division by zero at ./chlenomer.pl line 48.

anonymous
()

баги: не учитывает если у проца спидстеп, у меня не учитывает nfs разделы (nfs -x == command not found, debian)

Итого на основном компе (debian lenny):
Uptime (days): 8D
Memory (MB/20): 8=============================================================================D
Swap all (MB/20): 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/10): 8==================================================================D

На серваке (freeBSD 7.0):
[root@nimrodel /tmp]# ./ch.pl
Uptime (days): 8===========================D
free: not found
Memory (MB/20): 8D
free: not found
Illegal division by zero at ./ch.pl line 48.
[root@nimrodel /tmp]#

ноут врубать лень.

AiFiLTr0 ★★★★★
()
Ответ на: комментарий от gln0fate

Uptime (days): 8D Memory (MB/20): 8============================================================================== =============================================================================D Swap all (MB/20): 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/10): 8===================================================D

anonymous
()
Ответ на: комментарий от anonymous 

Uptime (days):     8D
Memory (MB/20):    8==============================================================================
=============================================================================D
Swap all (MB/20):  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/10):  8===================================================D

anonymous
() 

Uptime (days):     8D
Memory (MB/20):    8==============================================================================
================================================================================
================================================================================
================================================================================
================================================================================
================================================================================
================================================================================
================================================================================
================================================================================
================================================================================
==========================D
Swap all (MB/20):  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/10):  8==============================================================================
================================================================================
================================================================================
================================================================================
================================================================================
================================================================================
===================================================================D

sS ★★★★★
()
Ответ на: комментарий от sS

И не хватает числа процессоров ;)

sS ★★★★★
()

Для свопа длину стоит рассчитывать от 100-@swres[1].

bakagaijin ★
()

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

sub cpu(){ my @cpudata =`cat ~/tmp/cpufreq.test/cpu*/cpuinfo_max_freq`; my $maxfreq=0; for $ent (@cpudata){ $maxfreq+=$ent; print " ".$ent."\n"; } return $maxfreq/($#cpudata+1); # or just "return $maxfreq"? }

anonymous
()
Ответ на: комментарий от far_tuna

> Адский топик...

все для вас, милые дамы. все для вас.

// wbr

klalafuda ★☆☆
()

как у некоторых-то комплексы через край хлещут :)
в том топике енгов на полэкрана не было

Deleted
()

Разбаньте АА, он вам понарисует графиков )

anonymous
()

Uptime (days): 8=====D
Memory (MB/20): 8===================================================D
Swap all (MB/20): 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/10): 8=========================D


PS Как-то не православно системные вызовы делать в перлскрипте

gnomino
()

Ноут:
pinipini@pininotebook:~$ ./my.pl
Uptime (days): 8D
Memory (MB/20): 8======================D
Swap all (MB/20): 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/10): 8=======D
pinipini@pininotebook:~$

Пожже `серв` покажу

LebedevRI ★
() 

Uptime (days):     8====D
Memory (MB/20):    8==============================================================================
================================================================================
================================================================================
================================================================================
================================================================================
================================================================================
================================================================================
================================================================================
================================================================================
================================================================================
========================D
Swap all (MB/20):  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/10):  8======================D

// wbr

klalafuda ★☆☆
()

$ perl /home/overmind/chlen.pl
Uptime (days): 8========D
Memory (MB/20): 8============================================================================== =========================D
Swap all (MB/20): 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/10): 8=========================================D

overmind88 ★★★★★
()
Ответ на: комментарий от overmind88

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

Swap all (MB/20): 8========================D

Swap used %: 8D

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

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

Num. proc.(/2): 8====================================D

Load avg. (*50): 8D

Diskspace (GB/10): 8================================================D

Мда...

Dominat ★★
() 

Uptime (days):     8==========D
sh: free: command not found
Memory (MB/20):    8D
sh: free: command not found
Illegal division by zero at chlenomer.pl line 48.

mono ★★★★★
()

Uptime (days): 8============================================================================== =================================================================D
Memory (MB/20): 8=========================D
Swap all (MB/20): 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/10): 8============================================================================== ============D

anonymous
()

Uptime (days): 8D
Memory (MB/20): 8=========================D
Swap all (MB/20): 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/10): 8================D

Werehuman ★★
() 

Uptime (days):     8==========D
Memory (MB/20):    8=========================D
Swap all (MB/20):  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/10):  8======D

dimon555 ★★★★★
()

Uptime (days): 8============D
Memory (MB/20): 8=========================D
Swap all (MB/20): 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/10): 8=======D

Kaschenko ☆
() 

Uptime (days):     8======D
Memory (MB/20):    8==============================================================================
=========================D
Swap all (MB/20):  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/10):  8==============================================================================
==============D

as33 ★☆☆
()
Ответ на: комментарий от as33 

Без powernowd 

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

as33 ★☆☆
()

Uptime (days): 8D
Memory (MB/20): 8===================================================D
Swap all (MB/20): 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/10): 8==========D

ttnl ★★★★★
()
Ответ на: комментарий от far_tuna

> Адский топик...

Алёнка, Ваш выход! Есть же женщины в русских селеньях! ;)

Gharik ☆
()

Мое:
Uptime (days): 8D
Memory (MB/20): 8=============================================================================D
Swap all (MB/20): 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/10): 8=======D

squareroot ★★★★
()

Uptime (days): 8D
Memory (MB/20): 8============================================================================== =============================================================================D
Swap all (MB/20): 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/10): 8============================================================================== ======D

delilen ★☆
() 

tim@tim-eeepc:~$ ./chlenomer.pl
Uptime (days):     8D
Memory (MB/20):    8=========================D
Swap all (MB/20):  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/10): 8=D


(eeePC 701).

hibou ★★★★★
()

пацаны, чо делать ? запустил на дебиане, а у меня писька на Memory(MB/20) уже 1,5 часа тянется и не хочет прекращать ? o_0

phasma ★☆
()
Ответ на: комментарий от phasma

>запустил на дебиане, а у меня писька на Memory(MB/20) уже 1,5 часа тянется и не хочет прекращать ? o_0

Как у Пиноккио нос что ли? Тогда, очевидно, переставай врать ;)

Demon37 ★★★★
() 

andrey@valkyrie ~ $ ./chen.pl
Uptime (days):     8===D
Memory (MB/20):    8==============================================================================
=========================D
Illegal division by zero at ./chen.pl line 48.
andrey@valkyrie ~ $

hmm..

generatorglukoff ★★
()
Ответ на: комментарий от sS

Как звали святого, который опоясался, дабы посрамить беса?

По теме:

Uptime (days): 8===D
Memory (MB/20): 8============================================================================== ========================D
Swap all (MB/20): 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/10): 8=========================D

question4 ★★★★★
()

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

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

Illegal division by zero at ./chlenomer.pl line 48.

зачем своп

amorpher ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
 ← 1 2
← [радиодетали] напимните прогу.
Talks
Самый «красивый» дистрибьютив ? →