Recursive count

sandy1028 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Recursive count by velusamy (Monk) on Mar 02, 2009 at 05:16 UTC
Hi, You can do this by using File::Find Module.	[reply]
Re: Recursive count by leslie (Pilgrim) on Mar 02, 2009 at 06:53 UTC
Hi sandy, You can use this code for finding the count of .txt files. `use strict; use warnings; use File::Find; my $dir="/home/Perl/monks"; my $total=0; sub test { ++$total if($File::Find::name =~ /\.txt$/); } find(\&test,$dir); print "Total:$total\n";` [download]	[reply] [d/l]
Re: Recursive count by Anonymous Monk on Mar 02, 2009 at 05:17 UTC
add + 1 for each file found :) use File::Find::Rule or File::Find	[reply]
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]