find ( thats exported by File::Find ) requires you to define a function that will be used to pick files that you are want. Basic usage like so:

use strict    ;
use warnings  ;
use File::Find;
use Data::Dump;


my $dir = shift || die "Dir name missing as argument\n";

my @files = ();
find( \&wanted, "$dir" ); 
dd( \@files ) ;

exit() ;


sub wanted() {
    push @files, $File::Find::name if(/\.txt$/i); # .txt or whatever.
}
[download]

Hi

Another option, and possibly a simpler one for someone new to perl is to use File::Find::Rule. The example below searches through the current directory and its subdirectories, for all files with a .pl extension.

Note that the result is stored in an array, not a hash. The result can be stored in a hash if the user needs to, but the key/value construct would need to be understood eg, is the key the path, and the value the file name, or is the key the full file name and the value the size of the file (or other attributes) etc....

use strict;
use warnings;
use autodie;

use File::Find::Rule;

my @txt_files  = File::Find::Rule
    ->file
    ->name('*.pl')
    ->in('./');

foreach (@txt_files) {
    print "$_\n";
}
[download]

I hope this helps

Arnaud.

Thank you for the reply. I tried this:

#!/usr/bin/perl -w

use strict;
use warnings;
use File::Find;
use Cwd;
my $dir = getcwd;

my %hashTS;

find(&wantedTS, "$dir");

sub wantedTS()
{
    if ($File::Find::name =~ /(.*)(\.ts)(\.txt)$/)
    {
        $hashTS{$File::Find::name}++;
    }
}
[download]

to place text files ending with .ts.txt into my hash, but it doesn't work because "Use of uninitialized value $File::Find::name"

You're missing a backslash...

find(\&wantedTS, "$dir");
[download]

package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

use Path::Iterator::Rule qw();
use Path::Tiny qw(path);

my %files = map {
    $_ => path($_)->basename
} Path::Iterator::Rule->new
    ->name(qr/hp[.]txt$/)     # regex of file name
    ->all('.');             # starting in the current directory
[download]

Dr Manhattan,

What's wrong with using 'glob'?

   perl -E '%h=glob("*hp.txt");say join("\n",%h);'
[download]

But that's an easy way to work with your current directory.

Good Luck...Ed

You might want to check Beginners guide to File::Find and/or my notes on File::Find.