Filesys::DiskUsage::Fast − A fast disk usage counter (du) with XS
C Perl
Switch branches/tags
Nothing to show
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
eg
lib/Filesys/DiskUsage
t
xt
.gitignore
Build.PL
Changes
LICENSE
META.json
README.md
cpanfile
ignore.txt
minil.toml

README.md

NAME

Filesys::DiskUsage::Fast - A fast disk usage counter (du) with XS

SYNOPSIS

use Filesys::DiskUsage::Fast qw(du);


my $total = du( $dir );
my $total = du( $dir1, $dir2, ... );

DESCRIPTION

A simple but fast disk usage counter implemented as XS module.

FUNCTIONS

  • du()

    Returns total byte number contained in directories specified.

      my $total = du("/usr/local");
      my $total = du("/bin", "/sbin", "/usr/bin", "/usr/sbin");
    

GLOBAL VARIABLES

  • $ShowWarnings

    If true, errors will be warn()ed. Default is true. Set false to suppress warnings (not found, permission denied etc).

      local $Filesys::DiskUsage::Fast::ShowWarnings = 0;
      du(...);
    
  • $SectorSize

    If > 0, the specified size is used to calculate the block size. Default value is 0, returns real occupied size.

      local $Filesys::DiskUsage::Fast::SectorSize = 4096;
      du(...);
    

PERFORMANCE

   s/iter   pp   xs
pp   1.35   -- -85%
xs  0.197 584%   --

tested on a directory contains around 11GB 3300+ files, CentOS 5 (HDD).

CAVEAT

All symbolic links always result 0 byte. Block, FIFO and other special files may not be counted accurately.

DEPENDENCY

None

SEE ALSO

Filesys::DiskUsage, Number::Bytes::Human

REPOSITORY

https://github.com/ryochin/p5-filesys-diskusage-fast

AUTHOR

Ryo Okamoto ryo@aquahill.net

COPYRIGHT & LICENSE

Copyright (c) Ryo Okamoto, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.