Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: grep with multiple choice

by Roy Johnson (Monsignor)
on Jun 11, 2007 at 20:45 UTC ( #620578=note: print w/replies, xml ) Need Help??

in reply to 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;

Caution: Contents may have been coded under pressure.

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
      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.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://620578]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (2)
As of 2022-11-27 08:26 GMT
Find Nodes?
    Voting Booth?