in reply to grep with multiple choice
If I understood correctly, you want to provide 2 names (for example, "Julia_Roberts" and "Cintheia"), look if both exist in the array and append the "(1,5)" thing to the second. If this is what you want, an array doesn't seem the best way to manage your data, and maybe a hash could be a better solution:
This Outputs:use strict; use warnings; use Tie::RegexpHash; tie my %names, 'Tie::RegexpHash' or die $!; %names = ( qr/Julia_Roberts/ => ["Julia_Roberts","(1,5)"], qr/Cintheia/ => ["Cintheia"], qr/Chelsia/ => ["Chelsia"] ); while (<DATA>){ chomp; my @pair = split; $names{$pair[1]}->[1]= $names{$pair[0]}->[1]; print join ("",@{$names{$_}}),"\n" for (keys %names); print "\n"; } __DATA__ Julia_Roberts Cintheia Julia_Roberts(1,5) Cintheia Julia_Roberts Chelsia
Julia_Roberts(1,5) Cintheia(1,5) Chelsia Julia_Roberts(1,5) Cintheia(1,5) Chelsia Julia_Roberts(1,5) Cintheia(1,5) Chelsia(1,5)
If it is not what you are trying to do, please be more specific
Hope this helps!
citromatik
In Section
Seekers of Perl Wisdom