Re: Perl Script gesucht

[Harald Weidner <hweidner-lists@gmx.net>]

Hallo,

Dominique-Holger SCHRAMM <dhschramm@nocare.org>:

>ich bin auf der Suche nach einem Perl oder andere Skript wo ich die
>aktuellen Systeminformationen meines Rechenrs (Debian Woody) auslesen
>lassen kann und dann ein Bild generieren lasse das ich dann als Signatur
>verwenden kann.

harald@shadowland:~$ cat bin/dicksize.sh
#!/bin/sh
echo `uptime|grep days|sed 's/.*up \([0-9]*\) day.*/\1\/10+/'; \
cat /proc/cpuinfo|grep MHz|awk '{print $4"/30 +";}'; free|grep '^Mem' \
| awk '{print $3"/1024/3+"}'; df -P -k -x nfs | grep -v 1k \
| awk '{if ($1 ~ "/dev/(scsi|sd)"){ s+= $2} s+= $2;} END \
{print s/1024/50"/15+70";}'`|bc|sed 's/\(.$\)/.\1cm/'

harald@shadowland:~$ dicksize.sh 
40.1cm


SCNR,

Gruß, Harald

-- 
Harald Weidner                           hweidner@gmx.net