Count no. of files

[sappleg]

Hi Guys,

I have a script where I need to count the no. of files in a given directory and have an output something like this:

"Total no. of files: nn"

How to achieve this please? I am new to Perl.

 

[max1x]

Is this a windows or *nix based system? I *nix based system, u can simply ls -l | wc -l to get a count of file (not hidden) or ls -al | wc -l (to get hidden files as well).
For windows based, u need to a script for, which I haven't tried yet.

Have you done any research or tried anything so far?

 

[KevinADC]

Untested code:

opendir DIR, 'path/to/dir' or die "$!";
my @files = grep {-f "path/to/dir/$_"} readdir DIR;
close DIR;
print "Total no. of files: ", scalar @files, "\n";

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

 

[sappleg]

Thank you guys. I have achieved this by using the following code:

my @files = <$ftp_dir /*>;
my $count=@files;
Print "$count \n";

Thank you a lot for your inputs.
Ciao...

 

[KevinADC]

That counts everything, files and folders. If thats what you wanted thats what you should have said.

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