Is there a better way to get the Country names with help of Regax

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

$names = Location:G-Canada

$names = Location:Germany

$names = Location:p-Australia

$names = Location:e-Britain

$names = Location:USA

$names = Location:c-India

$names = Location:Netherlands

$names = Location:r-China

my ($location) = $names =~ /Location:(.*)/i;
    $location= $location=~ /-(.*)/i;
[download]

Currently I am doing this to get the Country names. (See some are having c- or r- or something in front of the names). My question is, Is there a better way to do it(in a single code). Thanks in advance Monks.

Comment on Is there a better way to get the Country names with help of Regax Download Code

Replies are listed 'Best First'.
Re: Is there a better way to get the Country names with help of Regax by Tux (Canon) on Oct 16, 2012 at 05:39 UTC
`my ($location) = m{\b Location: (?:[a-zA-Z]-)? (\S+) }x;` Enjoy, Have FUN! H.Merijn	[reply] [d/l]
Re^2: Is there a better way to get the Country names with help of Regax by tobyink (Canon) on Oct 16, 2012 at 05:57 UTC
It would be good to see more sample input to figure out how countries with spaces in their names should be dealt with. North Korea, Vatican City, South Sudan, Timor Leste, Papua New Guinea, etc... `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply]
Re^3: Is there a better way to get the Country names with help of Regax by Anonymous Monk on Oct 16, 2012 at 07:19 UTC
Thanks Toby...	[reply]
Re^2: Is there a better way to get the Country names with help of Regax by Anonymous Monk on Oct 16, 2012 at 07:17 UTC
Thanks Tux. :-)	[reply]
Re: Is there a better way to get the Country names with help of Regax by 2teez (Vicar) on Oct 16, 2012 at 09:23 UTC
Hi, You could use this `print $1, $/ if ( $location =~ m{(?<=:)(?:.-)?(.+?)$} );` [download] even addressing the excellent point raised by tobyink like so: #!/usr/bin/perl use warnings; use strict; while ( defined( my $location = <DATA> ) ) { chomp $location; print $1, $/ if ( $location =~ m{(?<=:)(?:.-)?(.+?)$} ); } __DATA__ $names = Location:G-Canada $names = Location:Germany $names = Location:p-Australia $names = Location:e-Britain $names = Location:USA $names = Location:c-India $names = Location:Netherlands $names = Location:r-China $names = Location:North Korea $names = Location:Vatican City $names = Location:South Sudan $names = Location:Timor Leste $names = Location:Papua New Guinea [download] OUTPUT `Canada Germany Australia Britain USA India Netherlands China North Korea Vatican City South Sudan Timor Leste Papua New Guinea` [download] If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply] [d/l] [select]