Re: Is there a regular expression version of the index function?

If you are already using regexes, @- is all you need. But if you are just looking for a drop-in replacement for index, well, I have used this:

sub regindex {
  my ($str, $rx, $pos) = @_;
  pos($str) = $pos || 0;
  $str =~ /$rx/g or return -1;
  return $-[0];
}
[download]

print "Just another Perl ${\(trickster and hacker)},"
The Sidhekin proves Sidhe did it!

Comment on Re: Is there a regular expression version of the index function? Select or Download Code

Replies are listed 'Best First'.
Re^2: Is there a regular expression version of the index function? by rzward (Monk) on Jun 20, 2004 at 13:13 UTC
Thank you all for your help. I am now reading about the pos function. Richard	[reply]
Re^3: Is there a regular expression version of the index function? by rzward (Monk) on Jun 21, 2004 at 10:21 UTC
Oops. As you demonstrated in your example, `$-[0]` is what I'm looking for. According to perldoc: "...`$-[0]` is the offset into the string of the beginning of the entire match..." Thanks again. Richard	[reply] [d/l] [select]