Perl, ptui:
ls -l | awk '!/^[dt]/ {a=a+$5}; END {print a}'
I have more square footage.
On Mon, Mar 25, 2002 at 09:54:34AM -0800, thorsten Sideb0ard wrote:
>
> One thing i came across was a cheeky perl one liner
> that just adds up the byte count for a directory,
> doesn't descend tho:
>
> ls -lAF | perl -e 'while (<>) { next if /^[dt]/; $sum += (split)[4] }
> print "$sum\n"'
>
>
> -thor
--
___________________________________________________________________
P a u l
[EMAIL PROTECTED]
_______________________________________________
Bits mailing list
[EMAIL PROTECTED]
http://www.sugoi.org/mailman/listinfo/bits
