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 →
Ответ на: комментарий от delilen

рабочий комп.

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

delilen ★☆
()

levko@levko-desktop:~$ ./clmer.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
levko@levko-desktop:~$

BeerSeller ★★★★
() 

$ ./chlenomer.pl 
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

blessed ★
() 

[raa@Roodionov ~]$ ./chlenomer.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

fashka ★
()

А сделать скрипт портабельным под все posix системы слабо?

Orlangoor ★★★★★
()

Кроме того скрипт до ужаса кривой - а если у меня например 10 процессоров?

Orlangoor ★★★★★
()

хы) запустил на ARM920Tid

Uptime (days): 8D
Memory (MB/20): 8D
CPU (MHz/50): 8D
Kernel version: 8======================================D
Num. proc.(/2): 8D
Load avg. (*50): 8D
df: invalid option -- x
BusyBox v1.3.1 (2007-07-20 03:16:07 EEST) multi-call binary

(:

ElectroNik ★★
()

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
r

r_asian ★☆☆
()

( tia ~ ) $ ./chlenomer.pl
Uptime (days): 8D
Memory (MB/20): =============================================================================== ========================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

tiandrey ★★★★★
()

мой Intel Core 2 Quad

john@matrix ~ $ ./chlenomer.pl
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): 8D

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