david wrote:
> Dan Muey wrote:
>
> try Filesys::DiskFree
>
> #!/usr/bin/perl -w
> use strict;
>
> use Filesys::DiskFree;
>
> my $h = Filesys::DiskFree->new;
>
> $h->df;
> $h->device('/usr');
>
> print "/usr has ",$h->avail('/usr')," bytes available\n";
>
> __END__
>
> prints:
>
> /usr has 111111111 bytes available
On a Unix system. unfortunately, the module is not that portable, depending
on the Unix df command.
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
