3 # $RCSfile: dus,v $$Revision: 4.1 $$Date: 92/08/07 17:20:11 $
5 # This script does a du -s on any directories in the current directory that
6 # are not mount points for another filesystem.
8 ($mydev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
9 $blksize,$blocks) = stat('.');
16 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
17 $blksize,$blocks) = stat($_);
18 next unless $dev == $mydev;
22 exec 'du', '-s', @ary;