#!perl
use strict;
use warnings;

use File::Find;

my @found_list;
sub wanted {
  push @found_list, $File::Find::name if /^db\.table\.\d+$/
}

find \&wanted, '.';
print "$_\n" for @found_list;
[download]

my @found;
find(
    sub { m/^db.table.\d\d$/ && push @found, $_ },
    @directories_to_search,
);
[download]

This looks like what I need. Thank you.

$dir='/path/to/dir';
chdir $dir or die "Unable to change to $dir. $!";
@list=glob("db.table.??");
[download]

my @file_names=glob 'db.table.[0-9][0-9]';
[download]

Using glob makes it very simple to generalize this to find any pattern you want.

my $pattern = "*.[0-9][0-9]";

my @file_names = glob $pattern;
[download]

for instance, would find all files that ended with a double digit number.

To bad the glob format isn't quite as nice as the full regular expression engine, I'd have liked to be able to do \d+, but without further complicating this, we can't.

-Scott

Why is this not returning anything? The files exit the format is correct but glob does not populate the array.

sub find_files{
my ($dir, $db, $table) = @_;
my $file = "$dir" ."/" . "$db.$table.[0-9][0-9]";
print "$file\n";

my @files = glob $file;
foreach my $found_file (@files){
print "$found_file\n";
}

return @files;
}
[download]