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

Re: Perl Script gesucht



Servus Harald,

Harald Weidner <hweidner-lists@gmx.net> wrote:
> 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/'

:-)=)

Frank



Reply to: