• # Ya surement plus joli :)

    Posté par . En réponse au message Substitution de chaine connue par leur position. Évalué à 2.

    perl -le '($_,$s,$b)=@ARGV;$l=length($s); s/(.{$b}).{$l}(.*)/1ドル$s2ドル/; print' "aaaaaaaaa bb c bb i tot &&& $$" var 10

    -> aaaaaaaaa varc bb i tot &&& 20375

    Attention, la position de remplacement commence a 0 (la c'est a partir du 11eme caractere que ca a été changé)