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"; 
  }