'group' matches Perl - Webmaster Forum - Web Design, Programming and SEO forums

02-01-2006, 04:09 PM

ktsirig

Status: Junior Member
Join date: Oct 2005
Location:
Expertise:
Software:

Posts: 46

iTrader: 0 / 0%

ktsirig is on a distinguished road

'group' matches Perl

Hi all!

I have a string :

$seq="IIIIIMMMMMMMMMMMOOOOOOOOOOOOOOOOMMMMMMMMMMMM MIIIIIMMMMMMMMMOOOOOOOOOOOOOOMMMMMMMMMMMMMIIIMMMMM MMMMMMOOOOOOOOOOOOOOOMMMMMMMMMMMIIIIIIMMMMMMMMMMMM MOOOOOOOOOOOOOOOOOOOOOOOMMMMMMMIIIMMMMMMMMMOOOOOOO OOOOOOOOOOOOOOOOOOOOMMMMMMMIIIIMMMMMMMMMMMOOOOOOOO OOOOOOOOOOOOOMMMMMMMIIIMMMMMMMMMOOOOOOOOOOOOOOOOOO OOOOOOOMMMMMMMMMIIIMMMMMMMMMMMOOOOOOOOOOOOOOOOOMMM MMMMMI";

and I want to find all groups of MMMMMM. I don't want to find only every position in the string that has 'M',
i.e. pos6, pos7, pos8, pos9 etc but I want to have something like:

1st group : pos 7-15
2nd group : pos 23-34
3rd group : pos 45-55

etc

02-01-2006, 04:24 PM

Salathe

Status: Community Archaeologist
Join date: Jul 2004
Location: Scotland
Expertise: Software Development
Software: vim, PHP

Posts: 3,820

iTrader: 25 / 100%

Salathe will become famous soon enough

Hopefully, this will help:

Code:

while ($string =~ m/(M+)/gi) {
  print "Found '$&'";
}

The important part being m/(M+)/gi which is a regular expression matching one or more letter Ms (upper and/or lower case) together. After the last slash (/) is the global modifier (matches all instances of the M groups) and the case-insensitive modifier (take the 'i' out to make the search case-sensitive).