use strict;
use warnings;
use File::Find;
find({ wanted => \&process_file, preprocess => \&preprocess, no_chdir
+=> 1 }, @ARGV);
#find({ wanted => \&process_file, no_chdir => 1 }, @ARGV);
sub process_file {
@List = ();
if (-f $_) {
print "This is a file: $_\n";
push(@List,$_);
} else {
print "This is not file: $_\n";
}
return @List;
}
sub preprocess {
print "pre-processing @_\n"; # never see this
return sort @_;
}
@DIRLIST = @List;
print "@DIRLIST\n";
I am trying to return List of Files from File:Find to main Module in @DIRLIST
But do not know if it is possible to return a value from wanted sub in File:Find to main sub |