in reply to Recursive count

add + 1 for each file found :) use File::Find::Rule or File::Find

Replies are listed 'Best First'.
Re^2: Recursive count
by ikegami (Patriarch) on Mar 02, 2009 at 05:52 UTC
    No need to actually loop. 
    use File::Find::Rule qw( );

my $txt_count = () = File::Find::Rule
                     ->file()
                     ->name( '*.txt' )
                     ->in( $dir );

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom