Help for this page

Select Code to Download


  1. or download this
    my $dir = "//home//schmoe//somedir";
my $dirsize = -s $dir || die "can't stat dir $dir: $!";
  2. or download this
    `du -ks`
  3. or download this
    #!/usr/bin/perl -w

...
my $sum = 0;
find sub { $sum += -s }, @ARGV;
print "@ARGV contains $sum bytes\n";