Unix size again

In unix to get the usage of any directory we use the following command at the terminal du -sk / . In this we specify the directory of which we want the disk usage. Now consider the below code..

my ($location) = @_;
    print "\n".'Calculating Scan Statistics...'."\n";
 
    my $size =0;
    $size= `du -sk @_`;
    print "$size";
[download]

Now when i use this code to access the du command it gives me the disk usage of the root directory irrespective of the directory specified . example @_=/ gives result 150002 , @_ = /usr gives same result 150002 . I want the individual disk usage of every directory ? help??

Comment on Unix size again Download Code

Replies are listed 'Best First'.
Re: Unix size again by tobyink (Canon) on Feb 08, 2012 at 06:51 UTC
my ($location) = @_; $location =~ s{ ([\\\']) }{ '\\' . $1 }gex; # crude escape print "\n".'Calculating Scan Statistics...'."\n"; my $cmd = "du -sk '$location'"; warn $cmd; # let's see what's actually getting executed! my $size = `cmd`; print "$size"; [download]	[reply] [d/l]
Re^2: Unix size again by Anonymous Monk on Feb 08, 2012 at 09:10 UTC
Its not working gives this when run: du -sk '' at test_2.pl line 5	[reply]
Re^3: Unix size again by Corion (Patriarch) on Feb 08, 2012 at 09:26 UTC
Then `$location` is not what you think it is. Debug your script.	[reply] [d/l]
Re^3: Unix size again by tobyink (Canon) on Feb 08, 2012 at 09:27 UTC
Well, then that means that `$location` is an empty string, or perhaps undefined. So the problem lies elsewhere in your code. Post more of the script.	[reply] [d/l]
Re: Unix size again by JavaFan (Canon) on Feb 08, 2012 at 07:51 UTC
Are you sure @_ contains what you think it does? Where do you populate @_? Does what is printed out actually mention the directory you think is in @_?	[reply]
Re: Unix size again by Khen1950fx (Canon) on Feb 08, 2012 at 07:58 UTC
Use File::Find: `#!/usr/bin/perl -l use strict; use warnings; use File::Find; my $size = 0; find( sub { $size += -f $_ ? -s _ : 0 }, shift(@ARGV)); $size = sprintf( "%.02f", $size / 1024 / 1024); print "$size MB"; __END__ returned: 110.11 MB for /etc` [download]	[reply] [d/l]
Re^2: Unix size again by JavaFan (Canon) on Feb 08, 2012 at 08:49 UTC
That's wrong. Your solution counts files multiple times if there are multiple links to a file. OTOH, you are not counting the size of directories themselves. (Even an empty directory has typically a size of 4096 bytes). `du` takes care of both things.	[reply] [d/l]
Re: Unix size again by MidLifeXis (Monsignor) on Feb 08, 2012 at 13:41 UTC
Is this question a continuation of Unix size? There is no need to start a new thread if it is. --MidLifeXis	[reply]
Re: Unix size again by pvaldes (Chaplain) on Feb 08, 2012 at 12:26 UTC
opendir(my $fo, $ARGV[0]); chdir $fo; print `du -sk`; closedir $fo; __END__ usage: perl script.pl /home/pandabeer perl script.pl /etc [download]	[reply] [d/l]


Pathologically Eclectic Rubbish Lister
	PerlMonks