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

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?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://177227]
help
Chatterbox?
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
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found