Regex Help!

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

Hi Monks

I have a doubt regarding a Perl regex, pls check the code below,

my $loc_data = "Location: England
                Location: Scotland
                Location: Finland ";

my $location = $1 if ($loc_data =~ /Location:(.*)/i);

print $location ;
exit;
[download]

Here, I am getting the output as England, because its the first one. Okay, now what modifications we should do if we want to take the second one(Here, its Scotland) or the third one(Here, its Finland). Is there a way to do this?

Thanks in advance.

Comment on Regex Help! Download Code

Replies are listed 'Best First'.
Re: Regex Help! by kcott (Archbishop) on Sep 19, 2013 at 07:54 UTC
Take a look at perlre: Modifiers: There's no case-insensitivity: you don't need the '`i`' modifier. `$loc_data` is a multiline string: you'll need the '`m`' modifier. You want repeat matches: that'll be the '`g`' modifier. Depending on how you rewrite your regex, you may also want the '`s`' modifier. Also, to improve the legibility of your regex, see the '`x`' modifier. -- Ken	[reply] [d/l] [select]
Re^2: Regex Help! by Anonymous Monk on Sep 19, 2013 at 08:11 UTC
Thanks. I tried this, got the second one, but still unable to get the 3rd one!.. `my $loc = $1 if ($loc_data =~ /.+Location:(.*)/);` what if there is more than 3 Location: in the $loc_data? Is there a way we can define it by the number? means we define 1 and we get the first? if its 2 we get 2nd, like that!	[reply] [d/l]
Re^3: Regex Help! by Anonymous Monk on Sep 19, 2013 at 08:12 UTC
Where do you use the g and m modifiers?	[reply]
Re^4: Regex Help! by Anonymous Monk on Sep 19, 2013 at 09:13 UTC
Re: Regex Help! by daxim (Curate) on Sep 19, 2013 at 09:22 UTC
You need to learn yourself how stuff works. You cannot bother other people all the time which you can trivially look up yourself in your learning materials or the official documentation. `my (@locations) = "Location: England Location: Scotland Location: Finland " =~ /Location: (\p{General_Category +=Letter}+)/gms; print $locations[0]; # England print $locations[1]; # Scotland print $locations[2]; # Finland` [download] update: made \pL more explicit	[reply] [d/l]
Re: Regex Help! (perlrequick Extracting matches) by Anonymous Monk on Sep 19, 2013 at 07:36 UTC
Read Simple matching->Extracting matches	[reply]
Re^2: Regex Help! (perlrequick Extracting matches) by Anonymous Monk on Sep 19, 2013 at 08:15 UTC
Thanks, tried, but still unable to do it. I got the second but unable to get the 3rd!	[reply]
Re^3: Regex Help! (perlrequick Extracting matches) by Anonymous Monk on Sep 19, 2013 at 08:22 UTC
Thanks, tried, but still unable to do it. Tried what? What did you copy/paste? Maybe see also More matching	[reply]
Re: Regex Help! by Laurent_R (Canon) on Sep 19, 2013 at 09:30 UTC
A small example under the Perl debugger, storing the countries into a @locations array: `DB<16> p $loc_data Location: England Location: Scotland Location: Finland DB<17> @locations = $loc_data =~ /Location: ([^\n]+)/g; DB<18> x @locations 0 'England' 1 'Scotland' 2 'Finland'` [download] The regex used assumes that the record separator is '\n', it might need to be adapted.	[reply] [d/l]


Keep It Simple, Stupid
	PerlMonks