Re: grep with multiple choice

use warnings;
use strict;

my @array = qw(Julia_Roberts(1,5) Cintheia Chelsia Rohan);

my $pattern = 'Julia_Roberts';
my $change = 'Cintheia';

# Find your pattern
my ($found) = grep /$pattern/, @array;
# Change your pattern into the new value
$found =~ s/$pattern/$change/;
# Replace the change item with your new value
for (@array) {
  s/$change/$found/;
}
print map "$_\n", @array;
[download]

Caution: Contents may have been coded under pressure.

Comment on Re: grep with multiple choice Download Code

Replies are listed 'Best First'.
Re^2: grep with multiple choice by sroy5 (Initiate) on Jun 12, 2007 at 05:35 UTC
Hello Johnson, Thanks for the code.Your interpretation was wright. What actually I was looking for is as follows: the array was `my @array = qw(Julia_Roberts(1,5) Cintheia Chelsia Rohan);` The above @array is actually dynamic feeded array. In which the possibility is I may not get "Cintheia" all the time.So I may need to grep for "Cintheia" along with the "Julia_Roberts" . If both of them found then the next code you wrote follows as it is . Actually I dont know how to grep for more than one words from the array. Would look for your comments SR	[reply] [d/l]
Re^3: grep with multiple choice by Roy Johnson (Monsignor) on Jun 12, 2007 at 15:56 UTC
If you had two different things to grep for, you would do two different greps. I do not know what the final result would be if you started with "Cintheia(2,3)" in the array and grepped for "Cintheia". Caution: Contents may have been coded under pressure.	[reply]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks