Kメモ：ディレクトリ(フォルダ)サイズを求める

ディレクトリ(フォルダ)サイズを求める

use File::Find;
　
　find(sub {$size += -s if -f}, $dir);
　print $size, "bytes¥n";

Perlメモより