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/'

Warum nimmst du nur den benutzten Speicher und nicht den
verfügbaren? Der Schwanz wächst doch mit dem Gesamtspeicher und
nicht dem verbrauchten:

#!/bin/sh
echo `awk '{print $1"/86400/10+"}' /proc/uptime; \
grep MHz /proc/cpuinfo |awk '{print $4"/30 +";}'; \
grep Total /proc/meminfo | awk '{print $2"/1024/3+"}'; \
df -P -k -x nfs | egrep -v "(1k|Dateisystem)" \
  | awk '{if ($1 ~ "/dev/(scsi|sd)"){ s+= $2} s+= $2;} END \
      {print s/1024/50"/15+70";}' | sed 's/,/./'` \
|bc|sed 's/\(.$\)/.\1cm/'

So komme ich wenigstens auf 

mueller@bruce:~ [16:57:46]$ bin/dicksize.sh 
82.0cm
mueller@www:~$ ./dicksize.sh 
96.7cm
mueller@marlin:~ [16:58:02]$ bin/dicksize.sh 
112.3cm

:)

end  

Gruss Udo
-- 
Ohne Signatur!