home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / eg / dus < prev    next >
Text File  |  1994-10-18  |  565b  |  23 lines

  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;
  23.