Modifications entre les versions 1 et 2
⇤ ← Version 1 à la date du 2008-06-11 09:36:06 →
Taille: 358
Éditeur: ThomasNoël
Commentaire:
← Version 2 à la date du 2008-06-11 10:23:06 → ⇥
Taille: 1170
Éditeur: ThomasNoël
Commentaire:
Texte supprimé. Texte ajouté.
Ligne 4: Ligne 4:

## format :
## CODE1::CODE2::CODE3:: prenom.nom, adresse.electo$nique.org
## NB :
## * sur une seule ligne
## * toujours commençant par un espace
## * le "$" sera remplacé par un "@"
## * @auf.org sera ajouté aux adresses sans domaine
Ligne 10: Ligne 18:

Exemple de script d'extraction :
  {{{
#!/usr/bin/perl
#!/usr/bin/perl

use LWP::Simple;
use Mail::Address;

my $implantation = 'Dakar';

my $content = get 'http://wiki.auf.org/wikiteki/CentraleDAchats/SystèmeDeSuivi/Correspondants?action=raw';

$content =~ /(\n\s+|::)${implantation}::\S*\s+([^\n]*)/s;
my $corresp = $2;
$corresp =~ s/\$/@/g;
my @addr = Mail::Address->parse($corresp);

foreach my $addrobj (@addr) {
 my $addr = lc $addrobj->address;
 unless ($addr =~ /@/) { $addr .= "\@auf.org"; }
 print $addr . "\n";
}
}}}

Ceci est un test...

Correspondants de la centrale d'achat, par implantation.

Afrique de l'Ouest

Dakar::SN::SN1::BAO
michel.guerrero, yerbanga$gmail.com
Saint-Louis::SN2
michel.guerrero, yerbanga$gmail.com, zoser.biziki, stefano.amekoudi
Conakry::Guinee::GN::GN1
michel.guerrero, yerbanga$gmail.com, zoser.biziki, mamadou-bobo.diallo

Exemple de script d'extraction : 

  • #!/usr/bin/perl

use LWP::Simple;
use Mail::Address;

my $implantation = 'Dakar';

my $content = get 'http://wiki.auf.org/wikiteki/CentraleDAchats/SystèmeDeSuivi/Correspondants?action=raw';

$content =~ /(\n\s+|::)${implantation}::\S*\s+([^\n]*)/s; 
my $corresp = $2;
$corresp =~ s/\$/@/g;
my @addr = Mail::Address->parse($corresp);

foreach my $addrobj (@addr) {
        my $addr = lc $addrobj->address;
        unless ($addr =~ /@/) { $addr .= "\@auf.org"; }
        print $addr . "\n"; 
}

CentraleDAchats/SystèmeDeSuivi/Correspondants (dernière édition le 2008-06-11 11:27:14 par ThomasNoël)