Re: Perl Script gesucht

[MRitch <jkerdawn@yahoo.com>]

Am 2004-10-14 01:13:21 schrieb(en) Udo Mueller:
> 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!
> 

*ggg*

comma patch:

--- dicksize.sh 2004-10-14 01:34:33.000000000 +0200
+++ dicksize2.sh        2004-10-14 02:11:19.000000000 +0200
@@ -1,6 +1,6 @@
 #!/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' \
+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/'
+{print s/1024/50"/15+70";}'`|sed 's/,/./g'|bc|sed 's/\(.$\)/.\1cm/'

mfg.

btw. meinen gateway rettet gerade noch die uptime etwas: 18.6cm  :-)