Memoize

Perl_File_Find_total_size

 
#! /usr/bin/perl
use warnings;
use strict;
use File::Find;
 
# 起点となるディレクトリ以下にあるファイルの合計サイズを計る
my $dir = shift || ".";
my $total_size = 0;
 
find(sub{ $total_size += -s if -f }, "$dir");
print "$total_size\n";