Directory used % in Linux

crazy-duck has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Directory used % in Linux ? by Anonymous Monk on Jan 31, 2014 at 10:29 UTC
`[man://df]` df	[reply] [d/l]
Re^2: <p>Directory used % in Linux </p> by FloydATC (Deacon) on Jan 31, 2014 at 10:37 UTC
`df` only works if that directory happens to be a mountpoint. Otherwise, you'll have to use `du`, parse the output and calculate the percentage yourself. -- FloydATC Time flies when you don't know what you're doing	[reply] [d/l] [select]
Re^3: <p>Directory used % in Linux </p> by LanX (Saint) on Jan 31, 2014 at 11:01 UTC
You seem to understand the OP .... Please tell me, what is "used percentage of a directory" supposed to mean if its not a mount point? Cheers Rolf ( addicted to the Perl Programming Language)	[reply]
Re^4: <p>Directory used % in Linux </p> by FloydATC (Deacon) on Jan 31, 2014 at 14:18 UTC
Re^4: <p>Directory used % in Linux </p> by crazy-duck (Novice) on Jan 31, 2014 at 14:37 UTC
Re^5: <p>Directory used % in Linux </p> by karlgoethebier (Abbot) on Jan 31, 2014 at 15:18 UTC
Re^5: <p>Directory used % in Linux </p> by FloydATC (Deacon) on Feb 01, 2014 at 09:09 UTC
Re: <p>Directory used % in Linux </p> by pvaldes (Chaplain) on Jan 31, 2014 at 18:39 UTC
Untested but "should work" opendir $mydir, "/somedir"; chdir $mydir; print `du -ha $mydir`; closedir $mydir; [download] `sh: 1: Syntax error: "(" unexpected` ups, or maybe not :-) Well... this is awful, but works `perl -e 'system("du -ha /somedir");'` but this don't go, Opendir issue probably. I'm surely doing a very silly mistake `perl -e 'opendir (my $dir, "/somedir"); chdir $dir; system ("du -ha $dir"); closedir $dir;'`	[reply] [d/l] [select]
Re^2: <p>Directory used % in Linux </p> by Anonymous Monk on Jan 31, 2014 at 22:42 UTC
a dirhandle is not a dirpath, you're using a system with a dirhandle, maybe you want '.' instead of $dir?	[reply]
Re^3: <p>Directory used % in Linux </p> by pvaldes (Chaplain) on Feb 21, 2014 at 15:27 UTC
Yup, you are right. But '.' was too trivial, that I wanted for my example the abstraction: "the current directory". With some delay, but a little research today led me to the solution. It was more easy than expected. use Cwd qw(); use strict; my $current = Cwd::cwd(); print `du -ha $current\n`; [download]	[reply] [d/l]