Discussion :

[Teufboy]

Hello,

Est-ce que quelqu'un peut me donner un petit coups de main sur une expression régulière, ce serait fortement aimable :

Code :

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

1
2
3
4
5
6
7
8
9
 
# $AllText : Le texte lu depuis le fichier
# $context : Le context danslquel doit se trouver l'utilisateur
# $num_boite : Le numéro de la boîte
 
# Recherche de l'adresse email du propriétaire de la boîte vocale
if ($AllText =~ /\[$context\].*$num_boite\s=>\s(.*?),(.*?),(.*?)\n/is){
   print "Adresse email : $3\n";
}

Voici le fichier texte dans lequel j'effectue la recherche

Code :

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

1
2
3
4
5
6
7
8
9
 
[sip]
371 => 371,test1,test1@gmail.com
372 => 372,test2,test2@gmail.com
373 => 373,test3,test3@gmail.com
 
[other]
371 => 371,test1,test1@gmail.com
1234 => 5678,Company2 User,root@localhost

L'expression permet de trouver l'email, mais rien ne l'empèche de trouver un boîte vocale dans un autre context ([other] par exemple), de plus il me semble qu'il doit être possible de faire plus simple.

Un immense

[Arioch]

Code :

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

1
2
3
4
 
if ($AllText =~ /.+,([a-z0-9A-Z]+@.+\..+)/) {
   print "Adresse email : $1\n";
}

A voir ?

[Teufboy]

Salut,

Merci pour ta réponse, mais il me semble que ton expression test plutôt si l'adresse email est valide, ce qui ne m'aide pas, je désir savoir si elle se trouve dans un context [context] et qu'elle est attribuée à un certain numéro.

Car voici dans quel situation on peut se trouver, on effectue une recherche du numéro 371 dans le context SIP :

Code :

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

1
2
3
4
5
6
7
8
 
[sip]
372 => 372,test2,test2@gmail.com
373 => 373,test3,test3@gmail.com
 
[other]
371 => 371,test1,test1@gmail.com
1234 => 5678,Company2 User,root@localhost

L'expression trouve l'adresse test1@gmail.com alors qu'elle ne se trouve pas dans le context SIP mais OTHER.

As-tu encore une idée ?

[Teufboy]

Personne n'a d'idée ?
Cela me dépannerait bien ;-)

[Arioch]

En partant du principe que tu as un fichier "liste.txt" contenant les infos présentées telles que ci-dessous :

Code :

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

1
2
3
4
5
6
7
[sip]
372 => 372,test2,test2@gmail.com
373 => 373,test3,test3@gmail.com
 
[other]
371 => 371,test1,test1@gmail.com
1234 => 5678,Company2 User,root@localhost

Voici un bout de code permettant de récupérer l'adresse mail d'une ligne et de savoir à quel contexte elle se rattache :

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
use strict;
 
my $dernier_contexte = "";
 
open(LISTE, "liste.txt") or die("lecture fic impossible : $!\n");
while(<LISTE>)
{
    chomp();
    if (/^\[(.+)\]$/)
    {
        $dernier_contexte = $1;
    }
    else
    {
        if (/.+,([a-z0-9A-Z]+@.*\.?.+)/) {
           print "Contexte = $dernier_contexte, adresse email : $1\n";
       }
    }
}

Par rapport à ton fichier d'entrée, voici ce que donne mon code en résultat :

Code :

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

1
2
3
4
Contexte = sip, adresse email : test2@gmail.com
Contexte = sip, adresse email : test3@gmail.com
Contexte = other, adresse email : test1@gmail.com
Contexte = other, adresse email : root@localhost

A toi d'adapter maintenant

[Teufboy]

Ok, c'est bon now, merci bien