Posts

Showing posts from October, 2011

#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