[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: Perl Script gesucht



On Wed, Oct 13, 2004 at 10:57:49PM +0000, Harald Weidner wrote:
> 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

Buuhaa ich hab gar keinen:

::3002::billy::~/
::3002::>echo `uptime|grep days|sed 's/.*up \([0-9]*\) day.*/\1\/10+/';
\
bquote> cat /proc/cpuinfo|grep MHz|awk '{print $4"/30 +";}'; free|grep
'^Mem' \
bquote> | awk '{print $3"/1024/3+"}'; df -P -k -x nfs | grep -v 1k \
bquote> | awk '{if ($1 ~ "/dev/(scsi|sd)"){ s+= $2} s+= $2;} END \
bquote> {print s/1024/50"/15+70";}'`|bc|sed 's/\(.$\)/.\1cm/'
zsh: no matches found: Intel(R)/30

-billy.
-- 
Philipp Meier - meier@fnogol.de
.signature: No such file or directory

Attachment: signature.asc
Description: Digital signature


Reply to: