problème option -group Was:Re: script pl de Manu ... Was:Re: [CBLX] XLS-vers-CSV

[Aldo <info@xxxxxxxxxxxx>]

Bonjour Manu.

L'option  -group  à la ligne  alias  de ton script pl m'occasionne quelques
soucis:
même si Mutt affiche ce groupe d'adresses, il ne montre aucun nom d'alias,
donc ni -group ni groupmailing.
J'ai donc dû supprimer -group.
Ceci dit, si on ne met pas de signes < > là on se retrouve avec l'éventuel
nom de l'alias collé à la 1re adresse courriel.
Donc, ce qui fonctionne bien c'est:
- pas de -group dans tous les cas si on veuet pouvoir taper le nom d'un
alias, fût-ce groupmailing
- pas de nom à l'alias si on omet les < >
- ou alors on puet mettre un nom si on a obté pour la version du script qui
met des < >

Voici donc les deux versions qui fonctionnent et que je viens de tester:

## v1 - sans nom ni "<>" ##:
#!/usr/bin/perl

use strict;

my @emails=();

while(<>) {
    if(/\b(([\w._-]+)@(([\w_-]+)(\.[\w_-]+)+))/) { push @emails,$1 }
}
print "alias groupmailing ",join(", ",@emails);


## v2 - avec nom et "<>" ##:
#!/usr/bin/perl

use strict;

my @emails=();

while(<>) {
    if(/\b(([\w._-]+)@(([\w_-]+)(\.[\w_-]+)+))/) { push @emails,"<$1>" }
}
print "alias groupmailing GroupMailing ",join(", ",@emails);

Pour info: mutt mettra cependant des < > autour de la 1re adresse de ce
groupe, et uniquement des virgules de séparation pour les autres;
mais ça fonctionne nickel.

Aldo. 


---
--
   CarrefourBLinuX MailingListe
   Pour obtenir de l'aide, envoyez le sujet  help  à:
   carrefourblinux-request@xxxxxxxxxxxxxxxxxxx
   Archives:
   http://listengine.tuxfamily.org/lists.tuxfamily.org/carrefourblinux