Discussion :

[filpinpin]

Hello,

Me voilà avec une chaine de caractere suivante:

$str="4561233030314563031456;

En fait, ce que je voudrais, c'est substituer la 2eme chaine de caractere "3031" par une valeur 3032 par exemple (et non celle dans 303031)


Sous Sed, j'ai vu que l'on peut cibler l'occurrence que l'on désire remplacer en ajoutant simplement un indice:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sed 's/la/LA/2'

Mais sous perl, comment faire la même chose avec l'opérateur ~s ?
~s ne propose que de substituer la 1er ou toute les occurrences?

$str=~ s/3031/3032/;

Merci

[Jasmine80]

Tu peux lui signaler que tu as 2 fois le motif mais que tu gardes le premier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$str =~ s/(3031\d+)3031/$1 3032/;
$str =~ s/ //;

je ne sais pas comment séparer $1 de 3032 sans un espace nécessitant une substitution supplémentaire. Ca te donne une idée mais il doit y avoir mieux.

[Philou67430]

je ne sais pas comment séparer $1 de 3032 sans un espace nécessitant une substitution supplémentaire. Ca te donne une idée mais il doit y avoir mieux.

Comme pour résoudre les problèmes d'interpolation avec une variable scalaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$str =~ s/(3031\d+)3031/${1}3032/;

[Philou67430]

Sinon, il est également possible de compter les occurrences dans l'expression régulière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$str =~ s/(3031)/++(my $count) == 2 ? "3032" : "$1"/ge;

[I'm_HERE]

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
$str="4561233030314563031456";
print "$str\n";
$str=~s/(\d+3031\d+)(3031)(\d+)/$1$\3032$3/;
print "$str";

EDIT: mais je vois que les codes de Jasmine80 et Philou67430 sont plus performants

[Jasmine80]

^^ C'est bien, j'apprends de nouvelles choses en essayant d'aider les autres

[filpinpin]

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
$str="4561233030314563031456";
print "$str\n";
$str=~s/(\d+3031\d+)(3031)(\d+)/$1$\3032$3/;
print "$str";

EDIT: mais je vois que les codes de Jasmine80 et Philou67430 sont plus performants

Merci pour le code, mais comme je ne suis pas très à l'aise avec les expressions régulieres, est-ce que quelqu'un pourrait expliciter le code?


A ce propose, cela a ses limitations, car si on prend la chaine de caractere suivante (qui est la même que l'autre, mais plus longue)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$str="647574187365727669636555303031206576656E755530312064757400"

La, la subsitution ne marche plus sur la 2eme occurence de 3031 ??