$html =~ s[<p>(.+?)</p>][<li value="++$count">$1</li>]gis;
Comment puis-je obtenir le code ci-dessus en Perl?Comment avoir une variable incrémentée en substitution globale?
J'ai besoin que le ++$count soit un nombre qui augmente pour chaque substitution qui a lieu.
Utilisez baby cart@{[ ]} de perlsecret
$html =~ s[<p>(.+?)</p>][<li value="@{[++$count]}">$1</li>]gis;
De perldoc
La façon dont cela fonctionne est que lorsque le @ {...} est vu dans la chaîne entre guillemets, il est évalué comme un bloc. Le bloc crée une référence à un tableau anonyme contenant les résultats de eval.
Vous pouvez utiliser le modificateur /e pour transformer la partie de substitution du s/// dans une expression Perl qui est évaluée une fois par substitution. Parce que c'est une expression complète, vous devez mettre le reste de votre chaîne entre guillemets. J'ai utilisé des guillemets simples et doubles pour la partie sans et avec interpolation respectivement.
my $html = "<p>foo</p><p>bar</p>";
my $count = 0;
$html =~ s[<p>(.+?)</p>]['<li value="'.++$count.qq{">$1</li>}]gise;
print $html;
__END__
<li value="1">foo</li><li value="2">bar</li>
'$ html = ~ de [
(. +?)
] [ '