Discussion :

[LeNoobEnPerl]

Bonjour,
On peut aussi utiliser \G ( qui est couplé avec pos ) :

Code :

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

1
2
3
4
my $str="0100110101100Z";
pos($str)=9;
$str =~ s/.\G//;
print $str."\n";

ce qui donne aussi:

Merci pour ta solution, ça marche impeccablement!
Mon problème est résolu (je vais donc marquer le sujet comme résolu), mais si quelqu'un a des explications sur comment ça marche, je suis preneur!

[LeNoobEnPerl]

C'est que tes regex ne reconnaissent pas ta chaîne de caractères ou du moins ne capturent pas correctement tes fragments de texte. Les variables $1, $2, etc. fonctionnent très bien avec toutes les versions de Perl 5 sans exception, et sur toutes les plateformes. Donc, si tu n'y arrives pas, c'est que tu fais quelque chose d'incorrect. Poste un exemple où ça ne marche pas et on pourra t'aider.

Sinon, avec la technique "de bricoleur retors et pas doué" que tu employais dans ton post d'origine:

Code :

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

1
2
3
4
 
my $string = "012345678901234567890";
my ($bout1, $bout2) = $string =~ /(\d{8}).(\d+)/;
print $bout1.$bout2; #   -> 01234567901234567890 - on a bien enlevé le 8, le neuvième caractère

Ou, en utilisant la même chaîne $string et les variables $1 et $2:

Code :

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

1
2
 
print "$1$2\n" if $string =~ /(\d{8}).(\d+)/;   -> 01234567901234567890 - idem

Ou en utilisant un opérateur s/// de substitution et $1 et $2 (même principe que ce qu'a proposé Djibril):

Code :

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

1
2
3
4
 
my $string = "012345678901234567890";
$string =~ s/(\d{8}).(\d+)/$1$2/;
print "$string\n";  -> 01234567901234567890 - idem

Sinon, avec la fonction substr:

Code :

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

1
2
3
 
$string = "012345678901234567890";
print substr ($string, 0, 8), substr ($string, 9), "\n";   # -> 01234567901234567890 - idem

Effectivement mes regexp devaient être fautives, parce que $1 et compagnie fonctionnent avec la regexp de disedorgue.
Par exemple,

Code :

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

 $ref_article = $1 if (/REF_ARTICLE}[\s]*=[\s]*"([\w]{10})"/); # apparemment, ne renvoie rien dans ref_article

ne fonctionne pas et me laisse $ref_article à la valeur undef.
$ref_article est censé être une suite de 10 caractères, obligatoirement renseignée.
La raison pour laquelle il n'y a pas de

Code :

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

 ... $string =~

est parce que je suis dans une boucle du type

Code :

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

 while (<MONFICHIER>)

(je sais, c'est une syntaxe louche, patapé ).

[Lolo78]

Effectivement mes regexp devaient être fautives, parce que $1 et compagnie fonctionnent avec la regexp de disedorgue.
Par exemple,

Code :

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

 $ref_article = $1 if (/REF_ARTICLE}[\s]*=[\s]*"([\w]{10})"/); # apparemment, ne renvoie rien dans ref_article

ne fonctionne pas et me laisse $ref_article à la valeur undef.
$ref_article est censé être une suite de 10 caractères, obligatoirement renseignée.

Hum, ta regex me paraît bien compliquée pour ce que tu décris.

Peux-tu donner quelques exemples des lignes en entrée sur lesquelles tu utilises cette regex?

[LeNoobEnPerl]

Hum, ta regex me paraît bien compliquée pour ce que tu décris.

Peux-tu donner quelques exemples des lignes en entrée sur lesquelles tu utilises cette regex?

Normalement, je ne suis pas censé le faire...
Voilà en gros ce qui se situe quelque part dans la ligne :

Code :

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

 ... REF_ARTICLE="0123456789" ...

Je souhaite extraire 0123456789 dans la variable $ref_article.

[disedorgue]

Ici, tu veux récupérer ce qui est en rouge:

Code :

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

... REF_ARTICLE="0123456789" ...

Donc dans un premier temps, faisons la capture sur cette chaine précise (ici, je le fais en uniligne) :

Code :

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

1
2
$ echo '... REF_ARTICLE="0123456789" ...' | perl -ne '/... REF_ARTICLE="(0123456789)" .../; print $1."\n"'
0123456789

On est ok, ça fonctionne, maintenant, essayons de la rendre générique, donc retirons déjà ce qui est inutile dans la recherche:

Code :

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

1
2
$ echo '... REF_ARTICLE="0123456789" ...' | perl -ne '/REF_ARTICLE="(0123456789)"/; print $1."\n"'
0123456789

Là, ça fonctionne aussi, mais sur une chaine précise que l'on a réduit au minimum, reste plus qu'à identifier comment rendre générique la capture et ici on voit que ça commence par un guillemet et que ça fini par un guillemet (ceux-ci exclu de la capture) et de plus, on sait que l'on ne peut pas avoir de chaine vide ce que l'on peut traduire en expression régulière par (en rouge, la regex) : "([^"]+)".
et donc, au final ça donne:

Code :

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

1
2
echo '... REF_ARTICLE="0123456789" ...' | perl -ne '/REF_ARTICLE="([^"]+)"/; print $1."\n"'
0123456789

[LeNoobEnPerl]

Problème résolu...
Il y avait juste un { que j'avais rajouté par erreur, une faute de frappe toute bête...

[LeNoobEnPerl]

Ici, tu veux récupérer ce qui est en rouge:

Code :

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

... REF_ARTICLE="0123456789" ...

Donc dans un premier temps, faisons la capture sur cette chaine précise (ici, je le fais en uniligne) :

Code :

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

1
2
$ echo '... REF_ARTICLE="0123456789" ...' | perl -ne '/... REF_ARTICLE="(0123456789)" .../; print $1."\n"'
0123456789

On est ok, ça fonctionne, maintenant, essayons de la rendre générique, donc retirons déjà ce qui est inutile dans la recherche:

Code :

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

1
2
$ echo '... REF_ARTICLE="0123456789" ...' | perl -ne '/REF_ARTICLE="(0123456789)"/; print $1."\n"'
0123456789

Là, ça fonctionne aussi, mais sur une chaine précise que l'on a réduit au minimum, reste plus qu'à identifier comment rendre générique la capture et ici on voit que ça commence par un guillemet et que ça fini par un guillemet (ceux-ci exclu de la capture) et de plus, on sait que l'on ne peut pas avoir de chaine vide ce que l'on peut traduire en expression régulière par (en rouge, la regex) : "([^"]+)".
et donc, au final ça donne:

Code :

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

1
2
echo '... REF_ARTICLE="0123456789" ...' | perl -ne '/REF_ARTICLE="([^"]+)"/; print $1."\n"'
0123456789

Aaaaah merci! Je comprends mieux le [^"] qu'utilisait un de mes collègues dans el code qu'il m'avait passé comme exemple!

[djibril]

disedorgue, lolo78