Re: Perl Script gesucht

[Udo Mueller <info@cs-ol.de>]

Hallo Harald,

begin  * Harald Weidner schrieb [13-10-04 22:57]:
> 
> 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/'

Damit hast du jetzt was losgetreten:

> harald@shadowland:~$ dicksize.sh 
> 40.1cm

mueller@www:~$ ./dicksize.sh 
45.7cm

end  

Gruss Udo
-- 
Ohne Signatur!