Discussion :

[pepsy77]

bonjour,
je débute en perl, avec un peu d'expérience en php

j'ai un texte qui mentionne quelque part
Lettres à Elise 1994 21 novembre 2002 On m'a dit que tu as un nouveau chat etc...

Je voudrais isoler Lettres à Elise 1994
Pour décortiquer l'info, j'ouvre une boucle

Code :

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

1
2
3
if ($ligne='~s/Lettres à Elise \d*/') {
$ref= \d*;
print $ref;}

Ca ne marche pas. Je voudrais récupérer le nombre 1994. Je suis conscient que c'est tout simple, mais je démarre, et je cale déjà. Merci de votre aide,

[estofilo]

Il y a de multiples problèmes dans le code montré:
1) syntaxe de l'opérateur =~ : l'apostrophe en plein milieu n'a pas lieu d'être
2) le s/ n'a pas lieu d'être non plus pour une simple recherche de motif sans remplacement
3) pour capturer un motif, il faut utiliser des parenthèses capturantes
4) pour récupérer les motifs capturés il faut utiliser les variables $1, $2 etc...

En corrigeant ces points, ça donne:

Code :

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

1
2
3
if ($ligne =~ /Lettres à Elise (\d*)/) {
 print $1;
}

Pour aller plus loin, il y a par exemple ce tutoriel:
http://perl.enstimac.fr/DocFr/perlretut.html

[pepsy77]

merci Estofilo!
c'est un sacré coup de main. Je me suis un peu emmêlé les pinceaux dans mon code parce que j'ai essayé de simplifier au max ma question,
je peux à présent me remettre au boulot,
merci pour le lien vers le tuto,

[Philou67430]

Une méthode équivalente à celle de estofilo qui évite d'utiliser les variables à effets de bord $1, $2, ... mais d'utiliser une variable my à la place :

Code :

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

1
2
3
if (my ($annee) = $ligne =~ /Lettres à Elise (\d*)/) {
 print $annee;
}