[perl5.git] / eg / dus

#!/usr/bin/perl

# $RCSfile: dus,v $$Revision: 4.1 $$Date: 92/08/07 17:20:11 $

# This script does a du -s on any directories in the current directory that
# are not mount points for another filesystem.

($mydev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
   $blksize,$blocks) = stat('.');

open(ls,'ls -F1|');

while (<ls>) {
    chop;
    next unless s|/$||;
    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
       $blksize,$blocks) = stat($_);
    next unless $dev == $mydev;
    push(@ary,$_);
}

exec 'du', '-s', @ary;
Commit	Line	Data
378cc40b LW	1	#!/usr/bin/perl
378cc40b LW	2
79072805	3	# $RCSfile: dus,v $$Revision: 4.1 $$Date: 92/08/07 17:20:11 $
378cc40b LW	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;