in reply to Replace the nth occurence

Another approach (\K available with 5.10+): 

>perl -wMstrict -le
"my $nth = 4;
 my $str = 'a,bb,ccc,dddd,eeeee,ffffff';
 ;;
 --$nth;
 $str =~ s{ (?: , [^,]*){$nth} \K , }{|}xms;
 print qq{'$str'};
"
'a,bb,ccc,dddd|eeeee,ffffff'

[download]

Replies are listed 'Best First'.
Re^2: Replace the nth occurence
by ColonelPanic (Friar) on Nov 21, 2012 at 08:38 UTC

    ++. This is the most efficient approach.



    When's the last time you used duct tape on a duct? --Larry Wall
[reply]

In Section Seekers of Perl Wisdom