FileHandle - searching single word from a txt file

[Sevla]

hello guys

i set this code , and i would like to know if its possible set "quotes" on the searched word.

Thank You

#word searching program within a txt file
#!C:/perl/bin/perl.exe
start:
#Handle Area - file opening
open FILE, "c:/perl/notice.txt" or die "failed to open notice.txt $!\n";
@read=<FILE>;
close FILE;
chomp @read;    
 
#Searching Area
    print "Search a word\?\n";
        $choose=<STDIN>; chomp $choose;
unless($choose =~/y|Y|[Y,y]es/){
        print "invalid \n"; 
        goto start;
}
 
       print "Type the word\n";
               $choose=<STDIN>; chomp $choose;
               my @result= grep(/$choose/,@read); 
       print "Sorry, this word was not found" unless(@result);  
               foreach(@result) { 
            print "results: ''$_''";               
 
        }

[eWish]

If you want the quotes to print just escape them. Or you can do the following.

my $word = 'perl';
print qq{The word you searched was "$word"};

--Kevin

[Sevla]

sorry i didnt get what you meant with these codes,

[numberwhun]

@Sevla
Try putting the code that eWish has provided into your script and see if it does what you want. The way he has written it, it will print the quotes around one of the words.

You will probably need to read up on the qq as to what it does so you understand.

Regards,

Jeff

[Sevla]

i see, the results quoted the word i typed on STDIN, but if i would like to keep the whole text line still on the results but with the quote on the exact word i entered on STDIN, ... could it be possible??


Thanks for patience

[eWish]

Yes. Simply use my example from above and replace the text and variables with those from your code.

--Kevin