Regex tabulation perl

Version imprimable

Bonjour tout le monde,

Je viens vers vous car j'ai un petit soucis d'expression régulière, j'ai un script perl qui convertit un mutt en vcard. J'utilise des expressions régulières pour tester mes lignes. Si dans mes lignes j'ai seulement des espaces tous fonctionne correctement je récupère bien mes infos. Le problème c'est si j'ai une tabulation entre 2 mots je n'arrive pas a le détecter et ma ligne et alors ignorer.

Mon code est le suivant.
Code:

1 2 3 4 5 6 7 8 while(<READ>){ if(m/^alias\s+(\S+)\s+(\S+)\s+<(.*)>/){ print "OK TAB "; }elsif (m/^alias ([^\s]*) (.*) (<.*>)/) { print "OK NO TAB"; //ce test fonctionne correctement } }
le type de ligne que je parcourt est du type
alias toto tata <toto.tata@mail.com> //ligne sans tabulation
alias test test <test.test@test.com> //cette ligne comporte une tabulation

Si quelqu'un aurait une petite idée :lol:
Merci

j'ai testé avec le bout de code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
my @tab = ();
push(@tab, 'alias toto tata <toto.tata@mail.com>');
push(@tab, 'alias	test test <test.test@test.com>');
 
foreach(@tab){
     if(m/^alias\s+(\S+)\s+(\S+)\s+<(.*)>/){
           print "OK TAB\n";
     }elsif (m/^alias ([^\s]*) (.*) (<.*>)/) {
           print "OK NO TAB\n";
     }
}

et je n'ai pas eu de problème.

ce doit être le saut de ligne qui pose problème.
Rajoute un appel à la fonction chomp, ça devrait fonctionner :

Code:

1
2
3
4
5
6
7
8
while(<READ>){
     chomp;
     if(m/^alias\s+(\S+)\s+(\S+)\s+<(.*)>/){
           print "OK TAB ";
     }elsif (m/^alias ([^\s]*) (.*) (<.*>)/) {
           print "OK NO TAB"; //ce test fonctionne correctement
     }
}

edit : j'ai peut être mal compris le problème, à voir.

24/06/2015, 14h04
Philou67430

Je ne comprends pas bien : dans ton script, tu as 2 expressions régulières : la première prend \s+ comme séparateur de mots (ce qui me semble une bonne chose). La deuxième prend juste le caractère espace (une seule occurrence) : avec cette dernière, tu ne devrais pas pouvoir isoler tes mots s'ils sont séparés par plusieurs espaces ou tabulation (plus d'un), ou par une tabulation. La première devrait fonctionner.
Avec ton exemple de lignes à convertir, ton script me retourne par exemple "OK TAB OK TAB"... ce que je trouve normal.
24/06/2015, 14h30
CosmoKnacki
Il n'y a aucune raison qu'une tabulation pose problème vu que tu utilises \s qui matche aussi bien l'espace que la tabulation. De plus je ne vois pas l'intérêt de faire de la tabulation un cas à part.

Par contre, tu présupposes que la partie "nom long" de ta ligne d'alias est composée d'un seul mot, or ce n'est pas forcément le cas: alias toto Robin des bois <toto.sherwood@mail.com>.

Si on part du principe que tes lignes ressemblent à ça: alias nickname nom long <adresse@email.com>, moi j'utiliserai une pattern de ce style:
Code:

1 2 3 4 ^alias\h+(\S+)\h+(.*?)\h+<(.*)> # ou une version plus guidée ^alias\h+(\S+)\h+(\S+(?:\h+[^\s<]+)*+)\h+<([^>]*)>
24/06/2015, 14h48
simon884
Merci à tous pour vos réponses,
oui je me suis un peu emmêler les pinceaux entre mes expressions régulière, c'est pas ce que je préfère disons :P
Citation:
Envoyé par CosmoKnacki

Il n'y a aucune raison qu'une tabulation pose problème vu que tu utilises \s qui matche aussi bien l'espace que la tabulation. De plus je ne vois pas l'intérêt de faire de la tabulation un cas à part.

Par contre, tu présupposes que la partie "nom long" de ta ligne d'alias est composée d'un seul mot, or ce n'est pas forcément le cas: alias toto Robin des bois <toto.sherwood@mail.com>.

Si on part du principe que tes lignes ressemblent à ça: alias nickname nom long <adresse@email.com>, moi j'utiliserai une pattern de ce style:

Code:

1 2 3 4 ^alias\h+(\S+)\h+(.*?)\h+<(.*)> # ou une version plus guidée ^alias\h+(\S+)\h+(\S+(?>\h+[^\s<]+)*)\h+<([^>]*)>
Effectivement tes patterns résolvent mon problèmes, mon deuxième test était complètement inutile effectivement.

Encore merci
24/06/2015, 14h49
simon884

Citation:

Envoyé par Philou67430

Je ne comprends pas bien : dans ton script, tu as 2 expressions régulières : la première prend \s+ comme séparateur de mots (ce qui me semble une bonne chose). La deuxième prend juste le caractère espace (une seule occurrence) : avec cette dernière, tu ne devrais pas pouvoir isoler tes mots s'ils sont séparés par plusieurs espaces ou tabulation (plus d'un), ou par une tabulation. La première devrait fonctionner.
Avec ton exemple de lignes à convertir, ton script me retourne par exemple "OK TAB OK TAB"... ce que je trouve normal.

Exact ma deuxième expression était totalement inutile