Harry Putnam wrote:
> 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+$/){
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: $!";
open my $fh, '<', $File::Find::name
or die "could not open $File::Find::name: $!\n";
> while(<$fd>){
while( <$fh> ){
> if(/$text_rgx/){
> print, $_;
print;
> }
> close($fh);
> }
> }
> }
},
@directory_list
> )
--
Just my 0.00000002 million dollars worth,
Shawn
Programming is as much about organization and communication
as it is about coding.
I like Perl; it's the only language where you can bless your
thingy.
Eliminate software piracy: use only FLOSS.
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
