Shell Programming and Scripting

Hi,

I have an array.

@arr=("abcdefgh","ppppppp","rrr");

$tofind="rrr";#string to find.

I want to match this string and retrieve only matched contents.

In this case rrr is found in 2nd position in an array i want to print only rrr.

If the string is matched i have to retrieve only the contents that is matched.

How do i do that in perl without using awk or sed?

with regards

with perl :

Code:

#!/usr/bin/perl 
# define array 
@tools = ("hammer", "chisel", "screwdriver", "boltcutter", "tape", "punch", "pliers"); 
 
# search for pattern "er" in array elements 
@match = grep (/er/i, @tools); 
 
# print matching elements 
# returns "hammer screwdriver boltcutter pliers" 
print "@match ";