UNIX for Dummies Questions & Answers

Hello,

I'm trying to create a program in perl called myfind.pl;

To use the program:
(at the command line)$ program.pl keyword filename
note: the keyword is any word or regular expression

and it should display the result just like when you 'cat' the file name but with the keyword in different color.

the problem is the program works fine if it's only one match in a line but it wouldn't get the 2nd match on the same line. I tried many logic and it didn't work out.

This is what i want it to look like

example: $ myfind.pl hot weather.txt
result: Yesterday was very hot and i had a cup of hot tea with a hot soup

my code right now looks like this and it works fine for getting a match per line but the rest of the match wouldn't be in color as the first match.



use strict;

unshift(@INC, "Xcolors.pm");
use Xcolors qw(:group_fg :group_bg :group_misc);

my $obj = "Xcolors"->new();

my $xrex = shift;
my $xfile = shift;

open(FH,"$xfile")||die("cannot open '$xfile': $!\n");
while(my $line=<FH>)
{
if($line =~ $xrex)
{

$_ = $line;
/$xrex/;

print "$`";
$obj->fred();
print "$&";
$obj->reset();
print "$'";
}

else
{
$obj->reset();
print "$line";
}
}
close(FH)||die("cannot close '$xfile': $!\n");


Any suggestion is really appreciated,
Thank you.

to match globally, use the "g" modifier. check perldoc perlretut or perldoc perlre

i actually use grep in this program because i need to display the output as it is which mean i need to print the string before the target and after the target and then re-searching the string after the target again for another match and repeat the process through the entire line

s command actually doesn't work for me in this case because i need to call the color method to print in color. If i use it in the substitute part, it will only print 1 for me.