Replacing a search/not found pattern with a word

[pinpe]

Hi,

I want to search a pattern from each line of my print output with a word "DOG". And those lines without the word "DOG" I will replace the entire line with the word "Not Found". How can I do it? Pls advice. Tnx in advance.

Input:

My DOG name 
*** CAT is in the kitchen
Name DOG
*** CAT is in the kitchen
My DOG name
My DOG name
My DOG name
My DOG name
 
print $animals | grep 'DOG' | nawk '{print $2}'

Desired Output:

DOG
Not Found
DOG
Not found
DOG
DOG
DOG
DOG

Br,
Pete

[numberwhun]

Hi,

I want to search a pattern from each line of my print output with a word "DOG". And those lines without the word "DOG" I will replace the entire line with the word "Not Found". How can I do it? Pls advice. Tnx in advance.

Input:

My DOG name 
*** CAT is in the kitchen
Name DOG
*** CAT is in the kitchen
My DOG name
My DOG name
My DOG name
My DOG name
 
print $animals | grep 'DOG' | nawk '{print $2}'

Desired Output:

DOG
Not Found
DOG
Not found
DOG
DOG
DOG
DOG

Br,
Pete

What have you tried thus far to do this? Please post your code and we will help you from there.

Regards,

Jeff

[eWish]

He posted this question on at least 3 other forums. Likely that there was not an attempt made.

--Kevin

[pinpe]

Hi,

My apology of giving incomplete info. These were the commands I tried. Actually I want to search from every line of my standard output file the word "DOG" and if not found replaced the entire line with the word "Not Found!". I was confused if I will use a conditional statements or simply using search & replace method. And I end up with the solution below:

#! c:\perl\bin\perl
 
use Net::Telnet;
 
@look=$net->cmd("cat $file | grep -i 'DOG' | awk 'NR==1' | nawk '{print \$2}');
for $find (@look) {
 $find =~ s/(^DOG)/\uNot Found!/g;
print "$find\n"; 
}
 

I intentionally replaced my standard input file due work related terminologies. =)

Tnx so much indeed for your ideas and tips.

Br,

[dvijayan]

open (IN, "lines.txt");
@words = <IN>;
foreach my $m (@words)
{
if ($m=~/DOG/)
{
    $m=~s/.*DOG.*/DOG/g;
}
else
{
    $m=~s/^.*$/NOT FOUND/g;
}
 
print $m;
 
}