voila j'ai un fichier txt avec du texte et parfois des nom et E-mail:
ex:
(nom factices)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 blablablablablablablablablablablablablablablablablabla PIGNON Paul pignon@toto.fr CONOR Sarah conor@feee.fr blablablablablablablablablablablabla blablablablablablablablabla TO-TO Franck blablablabla to@titi.fr
(les noms sont séparer de plusieur espace mais le forum les prend pas en compte dsl)
j'ai pour l'instant ceci:
Ca marche bien sauf que ca extrait pas "TO-TO Franck" et il y a d'autre petit problème dans certain bla bla qui correspondent mais ca je verais en temps voulu.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 open F, $txt; $txt =~ s/.txt/ Mail.txt/; $line = <F>; while ($line){ if ($line =~ /CRÉATION-DÉVELOPPEMENT/){ while ($line){ if ($line =~ /[A-Z]+\s[A-Z][a-z]+/){ foreach my $name (split (' ',$line)){ if($name =~ /[A-Z]+\s[A-Z][a-z]+/){ push (@name,$name); } } } if ($line =~ /@/){ foreach my $data (split (' ',$line)){ if($data =~ /@/){ push (@data,$data); } } } $line = <F>; } } else{ $line = <F>; } } close F; open RES, ">>$txt"; for (my $i=0; $i <= $#name; $i++) { print RES "$name[$i]\t"; print RES "$data[$i]\n"; } close RES; }
Je demande votre aide merci
Partager