Re^2: How to create the varibles with the file names

[softworkz]

I'd use File::Find

#!/usr/bin/perl -w
use strict;
use File::Find;

my $dir = "C:\\data\\";

find(\&Do_Something, $dir);
sub Do_Something{
    if ( -f && /\.txt$/ ) {
        print "Doing Something $_ \n";
    }
}

[duff]

Except that File::Find recurses into subdirectories and the OP didn't indicate that recursion was needed.

Also, there's more conceptual baggage with File::Find. If I'm going to gather the files into an array, how do I do that? How do I not recurse if that's appropriate? Et cetera. It's alot more for someone to have to figure out over a simple glob or readdir

[mrpeabody]

Well, if you're going to use File::Find, you might as well use the saner syntax of File::Find::Rule.

#!/usr/bin/perl 
use warnings;
use strict;
use File::Find::Rule;

my $dir = "C:/Windows";

my @files = File::Find::Rule
    ->file()
    ->name('*.txt')
    ->mindepth(1)
    ->maxdepth(1)
    ->in($dir);

print "$_\n" for @files;

For a job this simple, though, I would probably use glob().