Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: search for nth occurrence of a pattern in a line

by ioannis (Monsignor)
on May 17, 2006 at 08:56 UTC ( #549965=note: print w/replies, xml ) Need Help??

in reply to search for nth occurrence of a pattern in a line

Here is a solution. The basic idea to count the times we of the found pattern as we scan the string from left to right. Although we can compact the code into 2 short lines, it is shown bellow longer and verbose.

# $n is the nth wanted occurence, as indicated by the question. # $i holds how many times we found the pattern my $str = ',n ,pple , d,y'; my ($n, $i) = 4; $str =~ / , # we are searching for the , pattern (?{ $i++}) # we found it again , increament $i /xgc # retain last occurance on failure for (1..$n); # print position in string print +($n == $i) ? pos($str) - 1 : 'not found';

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://549965]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (9)
As of 2017-11-20 17:02 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (289 votes). Check out past polls.