df equivolent in Perl

[Steve_p]

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?

[grinder]

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'

[cjf]

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.

[rob_au]

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.