problem in finding files

[avik1612]

Hi,

I have created a program to find text files in a particular directory or folder.
and to find a particular word in that files

i finding it difficult to put the list in an array and finding the words

I have pasted the code below

#to Search word in a text file
 
use IO::File;
use File::Find;
use warnings;
 
find(\&search, "D:/User Profiles/akrishna/Desktop/notes/unix");
 
 sub search
     {
     if ((/\.txt$/) )
     {  
 
     @ext = $File::Find::name;
     print "@ext\n";          
 
 }
 }
 
 
foreach (@ext)
{
#open(my $sen, "<", "a.txt") or die "cant open a.txt";
open(my $sen, "<", $_) or die " can open the file";
 
my @list = <$sen>;
 
close $sen;
 
foreach (@list) {
if ($_ =~ /hi/) {
    print " Found word hi \n";
}
}
}
 

Thanks in Advance

[KevinADC]

There might be other problems, but this line looks suspect:

@ext = $File::Find::name;

@ext will only equal whatever the last value of $File::Fine::name was. Maybe you mean to use the push() function to populate the array.

perldoc: push function