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

[Aldo <info@xxxxxxxxxxxx>]

Juste un dernier mot alors, Manu:
ton script, mine de rien, est non seulement fonctionnel, mais génial car à
la fois simple et hyper efficace:
je viens en effet de l'appliquer sur un fichier non pas ldif mais html, et
là aussi il m'extrait l'ensemble des adresses courriel, que jeredirige vers
>peuimporte, avec le code 
alias groupmailing GroupMailing <avant@les_adresses.be>
Comme quoi sous Linux on peut faire des choses hyper efficaces et simples,
et de loin plus efficaces que ce que la personne pour qui je bosse ne puet
realiser avec la souri en mode graphique:
y a pas photo entre les deux au niveau vitesse et prise en main du problème;
BRAVO donc!

et merci surtout!

Aldo.


On Fri, Jul 16, 2010 at 04:36:52PM +0200, Emmanuel COUTRIS wrote:
> Salut Aldo,
> 
> 
> On Fri, Jul 16, 2010 at 04:28:31PM +0200, Aldo wrote:
> > 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.
> Merci... au moins j'apprends des trucs sur les alias de Mutt... car
> j'avoue que ... je suis resté à l'ancienne: je n'utilise jamais les
> aliases...
> 
> A plus,
> 
> Manu
> > 
> > Aldo. 
> > 
> > 
> > ---
> 
> ---
> -- 
>    CarrefourBLinuX MailingListe 
>    Pour obtenir de l'aide, envoyez le sujet  help  à: 
>    carrefourblinux-request@xxxxxxxxxxxxxxxxxxx
>    Archives: 
>    http://listengine.tuxfamily.org/lists.tuxfamily.org/carrefourblinux

-- 
  Dig that crazy beat on the drums:  VINUX !!!  The best is getting better!
  ----------------------------------<http://vinux.org.uk>------------------

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