in reply to $File::Find::Parent desired
No. I can't find $File::Find::parent in the File::Find manpage, too. What should "$parent" contain?
Perhaps you're looking for File::Spec's splitdir() method and:
my $parent = ( File::Spec->splitdir( $File::Find::dir ) )[-1]; if( $parent eq 'data' ){ # and so on ...
HTH
--
|
|---|