Regex Doubt.

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

Hi Monks, I have a doubt regarding Perl Regex.

my $total_names = "Matthew,Thomas,Peter,Randy,George,Federick";

my $last_name = $1 if ($total_names =~ /,(.*)/i);

print "$last_name;

I want to print the last name "Federick" only. but now its printing from "Thomas to Federick". Pls can you suggest a way.(using regex). Thanks in advance Monks.

Comment on Regex Doubt.

Replies are listed 'Best First'.
Re: Regex Doubt. by Anonymous Monk on Oct 16, 2012 at 03:03 UTC
Use an anchor and negated character class (match comma followed by not comma followed by end of line) `=~ /(,[^,]+)$/` [download] or use split `my $last = ( split /,/, $str ) [ 0 ] ;` [download] See perlrequick it has several examples	[reply] [d/l] [select]
Re^2: Regex Doubt. by Anonymous Monk on Oct 16, 2012 at 03:12 UTC
I have no permission to do it with split. The Regex way (=~ /(,^,+)$/) is giving me an error like the below, Can't find string terminator '"' anywhere before EOF at C:\Users\Raul\AppData\Local\Temp\dir6E94.tmp\Untitled line 4.	[reply]
Re^3: Regex Doubt. by Anonymous Monk on Oct 16, 2012 at 03:18 UTC
I have no permission to do it with split. Sure you do The Regex way (=~ /(,^,+)$/) is giving me an error like the below, Not possible. If you want help, show your code.	[reply]
Re^4: Regex Doubt. by Anonymous Monk on Oct 16, 2012 at 03:21 UTC
Re^5: Regex Doubt. by Athanasius (Archbishop) on Oct 16, 2012 at 03:40 UTC
Re^5: Regex Doubt. by Anonymous Monk on Oct 16, 2012 at 03:42 UTC