Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

Counting number of files

Aug 15, 2001, 11:24 AM
Bmxer
Veteran (1311 posts)
Aug 15, 2001, 11:24 AM
Post #1 of 4
Views: 3046
Shortcut
Quote Reply
Counting number of files
i used to know this, but i don't remember anymore. Anyway, how would i count, lets say, the number of files in a folder that end with .id.

Aug 15, 2001, 11:42 AM
Paul
Veteran (19537 posts)
Aug 15, 2001, 11:42 AM
Post #2 of 4
Views: 2937
Shortcut
Quote Reply
Re: Counting number of files In reply to
Hi,

Try...

Code:
my $dir = "/path/to/dir";
my @count = ();
opendir(DIR, $dir) || die "Can't open $dir : $!";
@count = grep { /\.id$/i } readdir(DIR);
closedir(DIR);
Code:
my $total = scalar @count;
Mods:http://wiredon.net/gt/download.shtml
Installations:http://wiredon.net/gt/
Aug 15, 2001, 11:54 AM
Bmxer
Veteran (1311 posts)
Aug 15, 2001, 11:54 AM
Post #3 of 4
Views: 2918
Shortcut
Quote Reply
Re: Counting number of files In reply to
Hey Paul,
i'm [glad] you are around this forum. That did exactly what i wanted. I'm not too familiar with grep. Anyway, thanks alot.

Aug 15, 2001, 11:59 AM
Paul
Veteran (19537 posts)
Aug 15, 2001, 11:59 AM
Post #4 of 4
Views: 2929
Shortcut
Quote Reply
Re: Counting number of files In reply to
My pleasure - it saved me from a university assignment for a few minutes Smile

Mods:http://wiredon.net/gt/download.shtml
Installations:http://wiredon.net/gt/