Harry Putnam <rea...@newsguy.com> writes:
> [...]
>
> find(
> sub {
> ## if we have a directory name that matches
> if($File::Find::dir =~ /$dir_rgx/){
> ## if that directory has files with all numeric names
> if(/^\d+$/){
> ## Open the files and search for a regex in the text
> open($fh,"< $File::Find::name")
> or die "Can't open $File::Find::name: $!";
> while(<$fd>){
> if(/$text_rgx/){
> print, $_;
> }
> close($fh);
> }
> }
> }
},
## Top level dir we start at
$topdir;
> )
>
> [...]
I neglected to finish that find() a little better.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
