Files Counter 1

[biobrain]

Dear All,

i wish to count files with a specific extension i.e either .txt or .html in a given directory/folder .

Is there any perl command?

 

[KevinADC]

No there is not, but you can use grep in a scalar context and it will give you a "count":

opendir(DIR, 'path/to/dir') or die;
my $c = grep {/\.txt$/} readdir DIR;
close DIR;
print $c;

------------------------------------------
- Kevin, perl coder unexceptional!

 

[biobrain]

Thanks

I have made a little change

It is working fine

use Cwd;

$dir = cwd;
opendir(DIR,"$dir") or die "$!";
$count  = grep {/\.txt$/} readdir DIR;
close DIR;
print $count;