df equivolent in Perl

Steve_p has asked for the wisdom of the Perl Monks concerning the following question:

I'm working on a script that will monitor the percentage of disk used on a UNIX filesystem. I probably will use `df` if I have to, but I'd prefer an all Perl solution. I've done some hunting for a Perl module that will do it for me, but I've come up with nothing so far. Does anyone know of a module in CPAN (or one that is already installed by default) that will give me this information?

Comment on df equivolent in Perl Download Code

Replies are listed 'Best First'.
Re: df equivalent in Perl by grinder (Bishop) on Jun 25, 2002 at 22:39 UTC
There is a (semi) pure Perl solution on CPAN named Filesys::Df. rob_au mentioned it to me the other day and I've been very pleased with it. I have found a bug in it, in that it gets hopelessly confused about the size of an NT drive mounted via NFS on a Solaris box (although it's not enough to worry me). But as far as the local filesystem goes it is spot on. print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u'	[reply]
Re: df equivalent in Perl by cjf (Parson) on Jun 25, 2002 at 22:36 UTC
Check out Filesys::DiskFree and Filesys::DiskSpace. Update: Just found Filesys::Df, haven't used it yet though. Update 2: Looks like grinder just beat me to Filesys::Df :). I tried it out though and it works nicely.	[reply]
Re: Re: df equivalent in Perl by rob_au (Abbot) on Jun 25, 2002 at 22:44 UTC
I would concur strongly with the comments of cjf directing attention to the Filesys::Df module which implements disk space checking via a `statvfs` call (via XS code within the Filesys::Statvfs module) - An example of usage of this module can be found on this site here. This module however is not wholly portable to Windows platforms, for which, the module Win32::AdminMisc may be more appropriate - See here for an example of this module in usage.	[reply] [d/l]