• [^] # Re: En perl

    Posté par . En réponse au message Remplacement de chaine connues par leur position. Évalué à 1.

    Désolé, erreur d'inattention.... La dernière partie devient :

    my $out = substr($inStr, 0, $pos1);
    $out .= substr($inStr, $pos1, $pos2-$pos1);
    $out .= $replace;
    $out .= substr($inStr, $pos2, length($inStr));

    Là ça doit être bon. Ça revient au poste de cho7.