replace nth occurence: Code verstehen - #166296 (Allgemeines zu Perl)

Student87

2013-03-10 11:04

User since
2012-11-08
73 Artikel
BenutzerIn
[default_avatar]

Hi,

für diese Aufgabe findet man vielerorts den gleichen Lösungsansatz, aber immer ohne Erklärung und der Threadersteller fragt auch nie weiter nach, deswegen muss ich jetzt selber nen Thread erstellen.

Code zum replacen der n-ten occurence:

Code: (dl )

my $repl = 'xyz';
my $n = 2;
my $i;
$s =~ s/(sneak)/ ++$i == $n ? $repl : $1 /eg;

Code zum replacen der dritten occurence:

Code: (dl )

1
2
3

my $count = 3;
my $str = "blublublublublu";
$str =~ s/(lu)/--$count == 0 ? "LA":$1/ge;

Kann mir jemand den Teil am Ende der beiden Codes erklären? Das sieht so kryptisch aus. Beim einen wird inkrementiert, beim anderen dekrementiert und was soll dieses Fragezeichen und geteilt durch eg ?