Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

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"

Comment on Re^2: Using File::Find
Download Code
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]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2015-11-25 09:47 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (672 votes), past polls