Strange behavior in File::Find (stopped working for no reason)

pvaldes has asked for the wisdom of the Perl Monks concerning the following question:

I'm perplexed. Can you tell me what is wrong with this script?

#!/usr/bin/perl -w
use strict; use warnings; use diagnostics; 
use File::Find;

open (my $t, '>', '/home/myuser/myfilename.sql') or die $!;

print $t "blah blah\n";

find( { preprocess => \&hi, wanted => \&work, postprocess => \&bye, fo
+llow_skip => 1 }, ".");

sub hi { print $t "hi\n"; return;} # works correctly

sub bye { print $t "bye\n"; return;}  # works correctly

sub work { print "my name is: ", $File::Find::name;
       print $t "I'm a file!"; 
           return;}                 

close $t;
[download]

when I run the script in the current tree directory I would expect a list of filenames being printed in screen and a text file containing:

blah blah
hi
I'm a file!I'm a file!I'm a file!... etc
bye
[download]

But what I have is: "my name is: ." or "my name is: 1" and a file containing:

blah blah
hi
bye
I'm a file!    <-yep, solitary and in the wrong position
[download]

libfile-find-wanted-perl/testing,testing,now 1.00-1.1 all installed, automatic

Can somebody tell me what is happening here? Is not a little late for an 1-April Joke?

Comment on Strange behavior in File::Find (stopped working for no reason) Select or Download Code

Replies are listed 'Best First'.
Re: Strange behavior in File::Find (stopped working for no reason) by choroba (Cardinal) on Apr 12, 2021 at 16:58 UTC
Let's read the documentation. > "preprocess" The value should be a code reference. This code reference is used to preprocess the current directory. The name of the currently processed directory is in $File::Find::dir. Your preprocessing function is called after "readdir()", but before the loop that calls the "wanted()" function. It is called with a list of strings (actually file/directory names) and is expected to return a list of strings. The code can be used to sort the file/directory names alphabetically, numerically, or to filter out directory entries based on their name alone. When follow or follow_fast are in effect, "preprocess" is a no-op. Your preprocess subroutine, `hi`, returns an empty list, so there are no files too iterate over. Why wasn't the `preprocess` subroutine called before `wanted`? Because the directory argument to `find()` is not preprocessed, `wanted` is run on it directly. Only the directories' contents that are subject to readdir are preprocessed. `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l] [select]
Re^2: Strange behavior in File::Find (stopped working for no reason) by pvaldes (Chaplain) on Apr 12, 2021 at 17:08 UTC
Thanks Choroba. Solved. Now I need to put a nice glob in &hi and... voila! That solves my main problem with the real script	[reply]
Re: Strange behavior in File::Find (stopped working for no reason) by pvaldes (Chaplain) on Apr 12, 2021 at 16:58 UTC
Ok, I will autoreply me. Is the preprocess routine that replaces the whole list of files by just "1" when returns correctly, Right? Yep, tested, that stupid thing again. After quoting the sub hi part it works like a charm	[reply]


XP is just a number
	PerlMonks