Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re^2: Using File::Find

by Dr Manhattan (Beadle)
on Feb 28, 2013 at 08:54 UTC ( #1021021=note: print w/replies, xml ) Need Help??

in reply to Re: Using File::Find
in thread Using File::Find

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"

Replies are listed 'Best First'.
Re^3: Using File::Find
by tobyink (Abbot) on Feb 28, 2013 at 09:28 UTC

    You're missing a backslash...

    find(\&wantedTS, "$dir");
    package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1021021]
NodeReaper sharpens his wit

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (11)
As of 2017-06-23 12:38 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (545 votes). Check out past polls.