#Perl recursive file listing in dir with a pattern in name
Modified:
use File::Find;
#Recursive file find with a pattern in name
find( sub{
/.*NODE.*\.CAT.*/si && -f $_ and push @bkpfiles, $File::Find::name;
#-d $_ and push @dirs, $File::Find::name;
}, $dir );
due to: sh1tn
use File::Find;
#Recursive file find with a pattern in name
find( sub{
/.*NODE.*\.CAT.*/si && -f $_ and push @bkpfiles, $File::Find::name;
#-d $_ and push @dirs, $File::Find::name;
}, $dir );
due to: sh1tn
Comments