{"id":1144,"date":"2007-04-02T19:54:00","date_gmt":"2007-04-03T02:54:00","guid":{"rendered":"http:\/\/kodegeek.com\/blog\/?p=1144"},"modified":"2007-04-02T19:54:00","modified_gmt":"2007-04-03T02:54:00","slug":"%c2%bfcomo-contar-el-espacio-usado-en-un-directorio-usando-perl","status":"publish","type":"post","link":"http:\/\/kodegeek.com\/blog\/2007\/04\/02\/%c2%bfcomo-contar-el-espacio-usado-en-un-directorio-usando-perl\/","title":{"rendered":"\u00bfComo contar el espacio usado en un directorio usando Perl?"},"content":{"rendered":"

Una de esas tantas ociosidades que a la final resultan \u00fatiles si lo que se quiere es un programa que funcione igual bajo Windows, Linux o Solaris:<\/p>\n


#!\/usr\/bin\/perl
use File::Find;
use Getopt::Long;
use strict;

my $func;
my $unit;
my @dirs;
my %units = (
      kb => [ 1024.0,  \"KB\"],
      mb => [ 1024.0* 1024.0, \"MB\"],
      gb => [ 1024.0 * 1024.0 * 1024.0, \"GB\" ]
);

GetOptions(\"dirs=s\" => \\@dirs, \"unit=s\" => \\$unit);
die \"Define the directories to measure\" if (scalar(@dirs) == 0);
$unit = \"gb\" if not defined $unit;
$unit = \"gb\" if not defined $units{$unit};

{
      my $tsize = 0;
      $func = sub {
              my (
                      $dev,
                      $ino,
                      $mode,
                      $nlink,
                      $uid,
                      $gid,
                      $rdev,
                      $size,
                      $atime,
                      $mtime,
                      $ctime,
                      $blksize,
                      $blocks) = stat($File::Find::name);
              if ( -f ($File::Find::name)) {
                      $tsize += $size;
              }
              return $tsize;
      }
}

printf \"Scanning directories: %s\\n\", join(',', @dirs);
foreach my $dir (@dirs) {
      find({ wanted => $func, follow => 0 }, $dir);
}

printf \"Total size of all combined directories: %.2f %s\\n\",
      (&$func) \/ $units{$unit}[0], $units{$unit}[1];
<\/pre>\n
La salida de ejemplo seria la siguiente:<\/p>\n

auyan:~\/src\/perl\/blog josevnz$ .\/du.pl -dir \/Users\/josevnz -dir \/tmp -unit pp
Scanning directories: \/Users\/josevnz,\/tmp
Total size of all combined directories: 31.05 GB
<\/pre>\n
Una belleza por lo simple \ud83d\ude00<\/p>\n
Blogalaxia.com:du<\/a>, perl<\/a>
Technorati.com:du<\/a>, perl<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
Una de esas tantas ociosidades que a la final resultan \u00fatiles si lo que se quiere es un programa que funcione igual bajo Windows, Linux o Solaris: #!\/usr\/bin\/perluse File::Find;use Getopt::Long;use strict;my $func;my $unit;my @dirs;my %units = ( kb => [ 1024.0, “KB”], mb => [ 1024.0* 1024.0, “MB”], gb => [ 1024.0 * 1024.0 * […]<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[],"tags":[88,89],"_links":{"self":[{"href":"http:\/\/kodegeek.com\/blog\/wp-json\/wp\/v2\/posts\/1144"}],"collection":[{"href":"http:\/\/kodegeek.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/kodegeek.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/kodegeek.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/kodegeek.com\/blog\/wp-json\/wp\/v2\/comments?post=1144"}],"version-history":[{"count":0,"href":"http:\/\/kodegeek.com\/blog\/wp-json\/wp\/v2\/posts\/1144\/revisions"}],"wp:attachment":[{"href":"http:\/\/kodegeek.com\/blog\/wp-json\/wp\/v2\/media?parent=1144"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/kodegeek.com\/blog\/wp-json\/wp\/v2\/categories?post=1144"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/kodegeek.com\/blog\/wp-json\/wp\/v2\/tags?post=1144"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}