Re: Regex Doubt.

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

Comment on Re: Regex Doubt. Select or Download Code

Replies are listed 'Best First'.
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
`my $total_names = "Matthew,Thomas,Peter,Randy,George,Federick"; my $last_name = $1 if ($total_names =~ /(,[^,]+)$/ ); print "$last_name;` [download] Thanks Monk.	[reply] [d/l]
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