eg/dus

   1 #!/usr/bin/perl
   2
   3 # $RCSfile: dus,v $$Revision: 4.1 $$Date: 92/08/07 17:20:11 $
   4
   5 # This script does a du -s on any directories in the current directory that
   6 # are not mount points for another filesystem.
   7
   8 ($mydev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
   9    $blksize,$blocks) = stat('.');
  10
  11 open(ls,'ls -F1|');
  12
  13 while (<ls>) {
  14     chop;
  15     next unless s|/$||;
  16     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  17        $blksize,$blocks) = stat($_);
  18     next unless $dev == $mydev;
  19     push(@ary,$_);
  20 }
  21
  22 exec 'du', '-s', @ary;