[ale] Perl Question

[fletch at phydeaux.org (Fletch)]

>>>>> "Bob" == Bob Kruger <bkruger at mindspring.com> writes:

    Bob> Simple Perl question for the group - is there a Perl function
    Bob> that capture the space remaining on a mounted partition?

my $fs = "/foo";
my( $used, $avail, $pct ) =
  (split( /\s+/, `df -k $fs | tail -1` ))[-4,-3,-2];


Not to mention searching for df on search.cpan.org sez:


Filesys::DiskFree

Filesys::Df

Filesys::DiskSpace


Never used any of them personally.  YMMV.



-- 
Fletch                | "If you find my answers frightening,       __`'/|
fletch at phydeaux.org   |  Vincent, you should cease askin'          \ o.O'
                      |  scary questions." -- Jules                =(___)=
                      |                                               U