Counting files in a directory?

[Nick]

Ok, here's the deal I'm making site that has multiple pages and I want to use either a PHP or CGI script to count the number of files in the directory, so I can use a SSI or PHP call to include something like this on the front page:

example: 'We currently have ### articles'

How can I do this?

Thanks in advance.

[Grant]

This should work fine.


#!/usr/bin/perl

# Path to directory you want to count files in on your server.
$dir = "/usr/home/gwscripts/html/files";

$directory_count = 0;
$file_count=0;

print "Content-Type: text/html\n\n";

opendir(DIR, $dir);
LINE: while($FILE = readdir(DIR)) {
next LINE if($FILE =~ /^\.\.?/);

## check to see if it is a directory
if(-d "$FILE"){
$directory_count++;
}
else {
$file_count++;
}
}
closedir(DIR);

print "Directories: $directory_count<br>\n";
print "Files: $file_count\n";

exit;


Hope that helps.

Grant

[KapTinKiRk]

I nominate Grant to be Moderator of this forum, even though he has no time.

Oh, and BTW Grant, I finally ordered that Perl book you recommended, got it today :-)... I already wrote a script (without it) and now I'm adding more stuff to it.

[Grant]

Originally posted by KapTinKiRk
I nominate Grant to be Moderator of this forum, even though he has no time.

Oh, and BTW Grant, I finally ordered that Perl book you recommended, got it today :-)... I already wrote a script (without it) and now I'm adding more stuff to it. What book did you end up getting. I don't remember which one I recommended. It was probably either 'Learning Perl' or 'Programming Perl'. Glad you are learning perl. Let me know if you have any questions with perl.

[Nick]

Thanks for the help Grant. I appreciate it.

[KapTinKiRk]

Originally posted by Grant
What book did you end up getting. I don't remember which one I recommended. It was probably either 'Learning Perl' or 'Programming Perl'. Glad you are learning perl. Let me know if you have any questions with perl.

It was Programming Perl, 3rd Edition

[Grant]

Originally posted by KapTinKiRk
It was Programming Perl, 3rd Edition Ok. That is a great book for learning all the small details of perl.

Grant

[Grant]

Originally posted by Nick
Thanks for the help Grant. I appreciate it. Glad to help. Let me know if you have any other questions.