table, liste, hash et tout et tout.. pour débutant

Citation:

---

comment récupérer c.toto@toto.com dans les lignes
f=<c.toto@toto.com>

---

Citation:

---

Code:

---

if($mail =~ /f=<([a-z]\.[a-z]+@[a-z]+\.[a-z]+)/i ){

---

mon fichier résultat est vide ?

---

C'est normal :p je n'ai récupéré que c.toto@toto.com et non le chiffre associé

Et bien, au lieu d'essayer de me faire deviner l'expression régulière, lis la théorie et comprends leur fonctionnement :) tu gagneras non seulement du temps, mais tu apprendras quelque chose de très utile. De plus, tu devrais également concentrer tes efforts sur le module Regexp::Common dont Jedai à parlé.

Citation:

---

mais j'ai pas mon compteur

ça ça ne marche pas
Code :


if ($ligne =~ /(\<(.*)\>)\s+(\d+)/) {


mon fichier est vide

---

Code:

---

1 2 3 4 5 6 7 8

my $mail = 'f=<c.toto@toto.com> 6'; if($mail =~ /(\<(.*)\>)\s+(\d+)/ ){ print "$1 => $2\n"; # priorité des parenthèses par la gauche # $1 => tout ce qui est avant l'espace # $2 => tout ce qui est compris entre < et > # $3 => la valeur numérique }

---

Tu récupère une valeur de trop. Tu as trois couples de parenthèses donc $1, $2, $3. Ne récupérant pas $3, il est donc tout à fait normal que tu ne récupères plus ton compteur.

utilise plutôt

Code:

---

if ($ligne =~ /<([@.a-z]+)>\s+(\d+)/i)

---

les backslah sont inutiles devant les signes plus petit et plus grand que.


Commences-tu à comprendre les expressions régulières?

bonjour,
avant tout merci pour ton aide, je devais terminer pour aujourd'hui.
j'ai testé ta solution

Code:

---

1 2	if ($ligne =~ /<([@.a-z]+)>\s+(\d+)/i)

---

mais là ça se passe pas bien
Scalar found where operator expected at D:\test_perl\testtop50.pl line 50, near "$h_count"
(Missing operator before $h_count?)
syntax error at D:\test_perl\testtop50.pl line 50, near "$h_count"
syntax error at D:\test_perl\testtop50.pl line 50, near "+="
syntax error at D:\test_perl\testtop50.pl line 59, near "}"
Execution of D:\test_perl\testtop50.pl aborted due to compilation errors.

j'ai donc testé la solution suivante:

Code:

---

1 2	if ($ligne =~ /<(.*)>\s+(\d+)/) {

---

et ça marche , c'est exactement ce que je voulais.
j'ai progressé un peu mais le chemin est encore long !
merci beaucoup pour ton aide.