Re: Counting the number of times a string matches in another string

[Rob Dixon]

R. Joseph Newton wrote:
> Rob Dixon wrote:
>
> >     my $key = ':L000:W000:M260:B271:8:A:';
> >     my $regex = join '|', ($candidate =~ m/\w+/g);
>
> Slick!  I like it.  It's not my style exactly [I'd at least throw a
> comment in: "Set up or for regex"], but it definitely caught my
> fancy.<|  :-o )

Thanks Joseph - except that it's wrong! I got my keys mixed up
with my candidates. Should be:

    my $key = ':L000:W000:M260:B271:8:A:';
    my $regex = join '|', ($key =~ m/\w+/g);
    my $count = () = ($line =~/\b($regex)\b/g);

Sorry if I confused anybody.

Rob




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]