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

I have a need to count certian files in a given directory on a windows box. I have tried using Find and have even played around with Slurp, but can not get what I want. I am trying to count up all files that end with the extention of .dat and skip the rest and then output the count to a flat file. Suggestions? Thanks.

Replies are listed 'Best First'.
Re: Counting Certian Files in Windows
by bart (Canon) on Feb 13, 2007 at 19:51 UTC 
    my $count = 0;
$count++ foreach glob "$dir/*.dat";

    [download]
    Will that do?
[reply]
[d/l]
[reply]
[d/l]
Re: Counting Certian Files in Windows
by ptum (Priest) on Feb 13, 2007 at 19:51 UTC

    What have you tried so far? You may want to try File::Find as a starting point, although there are several ways that are simpler than this.

[reply]
Re: Counting Certian Files in Windows
by swampyankee (Parson) on Feb 14, 2007 at 04:56 UTC

    The ideas will come down to getting a list of all the files with the extension ".dat", using glob and counting the elements in the returned array (see scalar), or you could open the directory of interest, and read the names of the files, and increment a counter when the file's name ends in .dat.

    I'd use glob and count the number of elements in the returned list; chances are that there won't be more than a few hundred files with names ending in /\.dat$/i, so memory use won't be a concern.

    Or you could install cygwin and do this: 

    ls *.dat | wc

    [download]

    emc

    Insisting on perfect safety is for people who don't have the balls to live in the real world.

    —Mary Shafer, NASA Dryden Flight Research Center
[reply]
[d/l]

Back to Seekers of Perl Wisdom