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 ??

[Philou67430]

L'expression régulière /(\d+3031\d+)(3031)(\d+)/$1$\3032$3/
cherche le motif (chaque tiret correspond à une sous-chaine extraite, identifiée par la suite $1, $2, $3):
$1 - au moins un chiffre suivi de 3031 suivi d'au moins un chiffre
$2 - 3031
$3 - au moins un chiffre
et à remplacer cette suite de sous-motifs par :
- $1 (donc inchangé)
- 3032 (donc en remplacement de 3031)
- $3 (donc la troisième partie)

Mais cette expression régulière souffre de quelques limitations :
- il faut impérativement que le premier 3031 soit précédé de chiffre (il ne peut pas être en début de chaine)
- il faut impérativement des chiffres entre le premier et le deuxième 3031, ce qui ne permet pas de matcher "003031303100"
- il faut impérativement des chiffres après le deuxième 3031 (il ne peut pas se trouver en fin de chaine).
- suite à ton édition, je rajoute la limitation suivante : on présuppose que les motifs entre les 3031 ne sont composés QUE de chiffres

[Philou67430]

Je te conseille donc plutôt ma 2e proposition :

Code :

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

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

qui ne subit pas ces limitations et qui est très "générique".

[filpinpin]

Je te conseille donc plutôt ma 2e proposition :

Code :

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

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

qui ne subit pas ces limitations et qui est très "générique".

ok un grand merci avec ce code, effectivement cela marche
T'es un champion!


mais pourquoi malgré cela sur l'autre code:

, ca ne marche pas avec la chaine

Code :

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

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

Sinon, ca represente quelle option le e à la fin /ge; dans le code:

Code :

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

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

g c'est pour globale, obtenir toute les occurrences, mais le e?

Merci

[Jasmine80]

mais pourquoi malgré cela sur l'autre code:

, ca ne marche pas avec la chaine

Code :

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

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

Primo \d ne reconnait que des chiffres or ta chaîne contient une lettre. Tu peux utiliser \w au lieu de \d qui reconnait les chiffres, lettres et l'underscore.
Secundo, (\d+3031\d+) correspond à $1, (3031) à $2 et (\d+) à $3 ... je ne vois pas l'utilité du $2 et $3 dans ce cas-ci.

Sinon, ca represente quelle option le e à la fin /ge; dans le code:

/g permet une recherche globale, donc de tous les cas.
/e permet d'évaluer la partie droite de /// comme une expression.

petit guide RegExp

[filpinpin]

Hello,

Je reviens sur cette histoire de code, donc bon, j'avais fait une petite fonction pour l'integrer à mon code

Code :

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

1
2
3
4
5
6
sub updatehexevent_id()
{
	my ($str) = @_;
	$str =~ s/(3031)/++(my $count) == 2 ? "$_[1]" : "$1"/ge;
	return $str;
}

Donc tout marche bien lorsque je compile sous commande dos avec (activePerl 5.10.0 build 1005)

Par contre, j'ai un serveur apache 2.2 sur la même machine et lorsque j'execute ce bout de code dans un script sous apache, la substitution ne marche plus ?

C'est fou !
Y a t'il une explication?
Merci

[Philou67430]

Es-tu certain que ton script s'exécute vraiment (par exemple, ajoute "TOTO" à la chaine $str avant de la retourner pour bien confirmer qu'il apparait) ?

[filpinpin]

Es-tu certain que ton script s'exécute vraiment (par exemple, ajoute "TOTO" à la chaine $str avant de la retourner pour bien confirmer qu'il apparait) ?

Oui oui le script s'executait bien comme j'affichais les traces en html!

Alors en fait, je viens de trouver par hasard!
Dans l'entêtre de mon script pertl , j'avais:

Code :

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

#!c:/perl/bin/perl.exe -wT

et en enlevant -wT, tout marche!!
Bon pourquoi avoir mis -WT vous me dirait?
Et bah c'était jute un copier-coller d'un exemple pris sur le net!

Si quelqu'un sait exactement ce que veut dire ces options?

-T permet de travailler en Taint mode mais w?


Merci

[Philou67430]

Le -w est l'équivalent de "use warnings", hautement recommandé (l'un ou l'autre).

[filpinpin]

Le -w est l'équivalent de "use warnings", hautement recommandé (l'un ou l'autre).

D'accord!
Bon j'ai pas creusé la question , mais pourquoi le mode taint bloquait la substitution?

[Philou67430]

Extrait de la doc :

-T forces "taint" checks to be turned on so you can test them.
Ordinarily these checks are done only when running setuid or
setgid. It's a good idea to turn them on explicitly for programs
that run on behalf of someone else whom you might not necessarily
trust, such as CGI programs or any internet servers you might
write in Perl. See perlsec for details. For security reasons,
this option must be seen by Perl quite early; usually this means
it must appear early on the command line or in the #! line for
systems which support that construct.

Il me semble raisonnable de laisser l'option dans le cas du CGI, et de comprendre pourquoi le script se comporte alors différemment.