Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: df equivalent in Perl

by grinder (Bishop)
on Jun 25, 2002 at 22:39 UTC ( [id://177227]=note: print w/replies, xml ) Need Help??

in reply to df equivolent in Perl

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'

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://177227]
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (5)
As of 2024-04-18 20:22 GMT
Find Nodes?
    Voting Booth?

    No recent polls found