use strict;
use warnings;
use File::Find;
sub finda
{
print "In finda, $File::Find::name\n";
}
sub findb
{
print "In findb, $File::Find::name\n";
}
find (\&finda, "/abc/xyz");
find (\&findb, "/pqr");
and got this result:
In finda, /abc/xyz # a folder
In finda, /abc/xyz/file1 # a file
In findb, /pqr # a folder
In findb, /pqr/file2 # a file
This is what you expected (apart from the 2 folders)
So, as the snippets of code you provided behave as expected, you need to post your code before we can help further.
Update: I mean: post a minimal script that reproduces your problem.
(This is all covered in How do I post a question effectively? !) |