Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: File::Find in a loop

by fishmonger (Chaplain)
on Apr 28, 2013 at 16:35 UTC ( [id://1031097]=note: print w/replies, xml ) Need Help??


in reply to File::Find in a loop

Others have answered you base question, so I'll bring up something else. Why would you execute the find(..) call in a for loop like that, when the find(..) function accepts a list of directories?
my @dir = qw( N:/TMP N:/TMP_2 ); find( \&wanted, @dir ); sub wanted { print "$File::Find::dir $_\n"; }

Replies are listed 'Best First'.
Re^2: File::Find in a loop
by vagabonding electron (Curate) on Apr 28, 2013 at 17:29 UTC

    I have almost forgotten why (sorry I am getting old :-) ) in fact I used the anonyme subroutine in the working script already.

    The problem: I use File::Find in a script to backup my files to the floppy disk. I have a hash with keys as the source directories and values as the target directories.

    So I use:

    for my $source ( keys %dir ) { my $destination = $dir{$source}; find( sub { my $relativeName = $File::Find::name; $relativeName =~ s/$source//; my $sourceName = File::Spec->catdir( $source, $relativeName ); my $destinationName = File::Spec->catdir( $destination, $relativeName ); (...compare and backup if new or newer ...) }

    That's why I found no other way as to feed both $source and $destination to &find and that's why I do it in a loop. Well, another option would be to call &find anew for each location in a script:

    my $source = "N:/TEMP"; my $destination = $dir{$source}; find ( \&wanted, $source ); my $source = "N:/TEMP_2"; etc.

    Is there another way to do it?

    Thanks again!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1031097]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2024-03-28 17:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found