Re^2: Using File::Find

[Dr Manhattan]

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}++;
    }
}

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

[tobyink]

You're missing a backslash...

find(\&wantedTS, "$dir");