help with regular exprestion

dnreddy has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: help with regular exprestion by jethro (Monsignor) on Mar 15, 2011 at 09:43 UTC
Check out lookahead patterns `(?=...)`, in your case you would probably need `m/(\w+)(?=\s+roy)/g`	[reply] [d/l] [select]
Re: help with regular exprestion by moritz (Cardinal) on Mar 15, 2011 at 10:40 UTC
`use 5.010; my @chunks = split " ", "Debashis Pranab roy Nagendra roy murali mohan + roy"; for (1..$#chunks) { say $chunks[$_-1] if $chunks[$_] eq "roy"; }` [download] Update: change range to start at 1, so that a leading "roy" doesn't result in the last item being printed, as pointed out by jethro++. Perl 6 - second systems done right	[reply] [d/l]
Re: help with regular exprestion by cdarke (Prior) on Mar 15, 2011 at 10:42 UTC
TMTOWTDI: `my $str = 'Debashis Pranab roy Nagendra roy murali mohan roy'; my @hits = $str =~ m/\b([[:alpha:]]+)\s+\broy\b/g; print "@hits\n";` [download] Gives: `Pranab Nagendra mohan` [download]	[reply] [d/l] [select]
Re: help with regular exprestion by umasuresh (Hermit) on Mar 15, 2011 at 13:47 UTC
I very good tutorial on regular expresions can be found here!	[reply]