Recuperer des adresses mail dans un fich txt Résolu/Fermé

Question

Bonjour,
j'ai besoin d'aide.
voici mon probleme:
j'ai un fichier texte de ce type:
[debut]

aaa = toto@ccm.fr,titi@ccm.fr,tutu@ccm.fr
zebrvz = azor@ccm.fr,tutu@ccm.fr,youpi@ccm.fr
fgsdgf = sdgs@cc.fr,riri@yahou.com

[fin]

-------------------------------------------------------------

j'ai besoin de recuperer uniquement les adresses mail pour pouvoir creer une liste de diffusion (donc separé par des virgules)

j'ai créé  des batchs mais quand je les enchaines, je me retrouve avec un fichier vide.

je n'y connais pas grand chose, donc si vous pouviez m'orienter.
Merci

wkm · Answer

bah pourquoi pas utiliser excel ou open office table pour en faire un tableau que tu pourrais definir automatiquement au virgule et apres tu pourra repasser ca plus facilement en liste. Enfin c est qu une idée a tester.

Stef60 · Answer

C'est une bonne idée.
J'avais ca la premiere fois. ca m'a pris 1h30.
Dans mon exemple y'a 10 adresses, en vrai, il y en a 300.
Comme ce fichier change souvent, je dois automatiser le processus.
je precise que mon ficher se trouve sur un serveur linux (subversion)
et donc j'ai essayé de faire un script en shell (sh) mais c'est compliqué (enfin pour moi)

wkm · Answer

ce fichier txt il est generé par quoi a la base ??

Stef60 · Answer

J'ai essayé avec sed
avec une boucle while
ca coince toujours

Stef60 · Answer

le fichier texte n'est generé par rien.
il est modifié manuellement.
En fait, en ajoutant les adresses mail, on autorise l'accés au projet (ce qu'il y a avant le = )

wkm · Answer

je sais que la question est "c.." mais il y a beaucoup de projets ? et te faut il une liste de diffusion par liste ou une global et si une global je suppose qu il faut gerer les doublon ?

Stef60 · Answer

oui il y'a beaucoup de projet, 50 environ.
On me demande une liste de diff globale (pour l'instant)
mais je suis aussi preneur pour une liste par projet ( :-)

Pour les doublons, cela serait un plus de les supprimer via le script.
Mais a vrai dire, Lotus Notes peut s'en charger.

Pour la petite histoire, on me demande ca car le serveur est tomber en panne lundi.
Et evidemment on avait de liste de diff pour avertir les utilisateurs.
Et on ne pouvait meme pas en créér une puisque les comptes des utilisateurs sont dans ce fichier.

wkm · Answer

Ce que j ai du mal a comprendre c est que je vois pas pourquoi ne pas le faire via un simple bloc note c est vrai que ca peut etre long mais en etant honnete tu n as que 50 fois a remplacer "aaa =" par une virgule pour que ton fichier soit bon mais j ai tout de meme cherché un peu et du cou j ai trouvé un soft qui peut t interresser.
Net Tools
Voila tu as dedans une option qui s appelle Local email extractor pour la trouver une fois le soft lancé tape sur F3 et cherche extract elle serra dans la liste.

jipicy · Answer

Salut,

L'espace entres les deux crochets "[ [" doit être enlevé "[[", il n'est mis ici que pour empêcher l'interprétation du code...grep -o '[ [:alnum:]]*@[ [:alnum:]]*.[ [:alpha:]]*' fichier.entrée | sed -e ':a ; N ; $!b a ;s/
/,/g' > fichier.sortie;-))

Stef60 · Answer

wkm,
comme je te l'ai dit, ta methode fonctionne c'est certain.
Mais comme je suis tetu, que je veux apprendre le shell et que la bidouille manuelle ce n'est pas professionnelle
je veux reussir un script sh.

jipicy:
ta commande marche pas mal meme si je comprend pas tout.
mais le resultat ne me convient pas.
j'aurai peut-etre du dire que j'ai des adresses mail du type thierry-externe.henry@ccm.com

de plus, il faut que le script s'arrete avant [fin] car sinon il interprete le reste du fichier

wkm · Answer

j ai bien compri Stef60, d ailleur moi aussi il faudrait que je me repanche un peu sur le script mais je ne fasais que te donner le nom d'un soft qui a certainement beaucoup de fonction que tu peu rechercher un jour. Et qui en plus fait tout seul ce que tu cherchais.
Sur ces mots bon courage dans ton apprentissage.

Stef60 · Answer

je met un reel exemple du fichier:
-------------------------------------------------------------------------
[groups]

Adm = thierry-externe.henry@ccm.com,zinedine-externe.zizou@ccm.com,michel.platini@ccm.com
Initiation1 = samir-externe.nasri@ccm.com,karim.benzema@ccm.com
projetTestW = karim.benzema@ccm.com
projetTestR =
projettest2R =
projettest2W = nicolas.anelka@ccm.com

[Initiation1:/]
@Adm = rw
@Initiation1 = r
@Initiation1 = r
* =

[Initiation1:/Trunk/toto]
thierry-externe.henry@ccm.com = rw
* =

[projetTest:/]
@projetTestW=r
@projetTestR=r
@adm=r
* =
------------------------------------------------fin du fichier

j'ai besoin de recuperer les mails situés entre [groups] et [Initiation1:/]

Stef60 · Answer

pas de probleme wkm
c'est sympa de ta part.

A bientot peut etre

wkm · Answer

bah si je retrouve mais vieux baths voui je repasserais te donner un exemple.
A+

Stef60 · Answer

j'ai mis un exemple concret du fichier a traiter


voici le resultat que j'obtiens avec ta commande:

henry@ccm.com,zizou@ccm.com,platini@ccm.com,nasri@ccm.com,benzema@ccm.com,benzema@ccm.com,anelka@ccm.com,@Adm ,@Initiation1 ,@Initiation1 ,henry@ccm.com,@projetTestW=r,@projetTestR=r,@adm=r


or, je veux que le script s'arrete avant [Initiation1:/] sinon il affiche des mails qui n'existent pas (@adm,@Initiation1....)

Stef60 · Answer

ca fonctionne (en tout cas sur le fichier exemple).

tu peux m'expliquer a quoi sert | ?
visiblement a enchainer les commandes ??

en tout cas merci.
et je repasse demain pour plus d'info.

Bonne soirée

jipicy · Answer

Tu peux m'expliquer a quoi sert | ?
visiblement a enchainer les commandes ??
Exact, voir à ce sujet : guide d utilisation du shell pour debutant#les pipelines

;-))

lami20j · Answer

Salut,
$ cat stef2
[groups]

Adm = thierry-externe.henry@ccm.com,zinedine-externe.zizou@ccm.com,michel.platini@ccm.com
Initiation1 = samir-externe.nasri@ccm.com,karim.benzema@ccm.com
projetTestW = karim.benzema@ccm.com
projetTestR =
projettest2R =
projettest2W = nicolas.anelka@ccm.com

[Initiation1:/]
@Adm = rw
@Initiation1 = r
@Initiation1 = r
* =

[Initiation1:/Trunk/toto]
thierry-externe.henry@ccm.com = rw
* =

[projetTest:/]
@projetTestW=r
@projetTestR=r
@adm=r
* =
$ perl -ne 'if (1../\[Initiation/){s/.*=\s*//;s/,/\n/g;print if /\@/}' stef2 > adresse
$ cat adresse
thierry-externe.henry@ccm.com
zinedine-externe.zizou@ccm.com
michel.platini@ccm.com
samir-externe.nasri@ccm.com
karim.benzema@ccm.com
karim.benzema@ccm.com
nicolas.anelka@ccm.com

Stef60 · Answer

salut lami20j
je comprend pas ta methode.
je dois ecrire tes commandes directement dans mon fichier??

jipicy,
ton code marche du feu de dieu.
maintenant il faut que j'enchaine en copiant le fichier fich.out vers un serveur windows.

j'ai fait ca:
------------------------------------------------------------------------------
#! /bin/bash

sed -n '/$$groups$$/,/\[//p' per.txt |\
grep -o '[ [:alnum:].-]*@[ [:alnum:]]*.[ [:alpha:]]*'|\
sed -e ':a ; N ; $!b a ;s/\n/,/g' > mail.txt|\
smbmount //serveurWIN/partage$ /mnt/mail/ -o credentials=/etc/samba/passwd.conf |\
cp /svn/mail.txt /mnt/lotsfs/ |\
smbumount /mnt/mail/
-------------------------------------------------------------------------------------------

quand je regarde sur le serveur WIN, j'ai bien un fichier mail.txt mais vide.

jipicy · Answer

Re-

Attention !!! Les pipes ( | ) ne servent que pour faire transiter le résultat d'une commande  vers une autre et non pas à enchainer des commandes comme tu essaies de le faire.

Essaie plutôt d'écrire ton script comme suit :#! /bin/bash

sed -n '/$$groups$$/,/\[//p' per.txt |\
grep -o '[ [:alnum:].-]*@[ [:alnum:]]*.[ [:alpha:]]*'|\
sed -e ':a ; N ; $!b a ;s/\n/,/g' > mail.txt

smbmount //serveurWIN/partage$ /mnt/mail/ -o credentials=/etc/samba/passwd.conf

if [ -d "/mnt/mail" ]
then
cp /svn/mail.txt /mnt/mail/
smbumount /mnt/mail/
else
echo "Erreur ! Le répertoire n'existe pas."
fiDe plus, tu montes ce répertoire "/mnt/mail/" et t'essaie de copier le fichier dans celui-là "/mnt/lotsfs/" !? C'est un lien symbolique ? C'est voulu ? ou c'est une erreur ?

Stef60 · Answer

C'est parfait.
concernant /mnt/lotsfs/ c'etait une erreur.

j'ai pu qu'a automatiser tout ca (avec un cron je crois)
et la cerise serait d'enlever les doublons

Encore une fois, MERCI

jipicy · Answer

Pour les doublons, rajoute ça :sed -n '/$$groups$$/,/\[Initiation1/p' fich.in |\
grep -o '[[:alnum:].-]*@[ [:alnum:]]*.[ [:alpha:]]*'| uniq |\
sed -e ':a ; N ; $!b a ;s/\n/,/g' > fich.out;-))

lami20j · Answer

Salut,

je comprend pas ta methode. 
je dois ecrire tes commandes directement dans mon fichier?? 

Oui , tu peux l'ecrire directement dans le fichier.
Mais tu peux aussi l'exécuter directement.

Stef60 · Answer

la commande uniq  n'a rien changé

lami20j · Answer

voilà dans un fichier

root@debian:~# cat stef.sh
#!/bin/bash
perl -ne 'if (1../\[Initiation/){s/.*=\s*//;s/,/\n/g;print if /\@/}' stef2 | uniq
root@debian:~# cat stef2
[groups]

Adm = thierry-externe.henry@ccm.com,zinedine-externe.zizou@ccm.com,michel.platini@ccm.com
Initiation1 = samir-externe.nasri@ccm.com,karim.benzema@ccm.com
projetTestW = karim.benzema@ccm.com
projetTestR =
projettest2R =
projettest2W = nicolas.anelka@ccm.com

[Initiation1:/]
@Adm = rw
@Initiation1 = r
@Initiation1 = r
* =

[Initiation1:/Trunk/toto]
thierry-externe.henry@ccm.com = rw
* =

[projetTest:/]
@projetTestW=r
@projetTestR=r
@adm=r
* =
le résulat - pas des doublonsroot@debian:~# sh stef.sh
thierry-externe.henry@ccm.com
zinedine-externe.zizou@ccm.com
michel.platini@ccm.com
samir-externe.nasri@ccm.com
karim.benzema@ccm.com
nicolas.anelka@ccm.com--
lami20j

lami20j · Answer

avec l'ecriture dans le fichier resultat
root@debian:~# cat stef.sh
#!/bin/bash
perl -ne 'if (1../\[Initiation/){s/.*=\s*//;s/,/\n/g;print if /\@/}' stef2 | uniq > resultat

root@debian:~# sh stef.sh
root@debian:~# cat resultat
thierry-externe.henry@ccm.com
zinedine-externe.zizou@ccm.com
michel.platini@ccm.com
samir-externe.nasri@ccm.com
karim.benzema@ccm.com
nicolas.anelka@ccm.com

jipicy · Answer

Oups ;-((

il faut que le fichier soit trié pour repérer les doublons, essaye avec "sort -u" à la place de "uniq" :sed -n '/$$groups$$/,/\[Initiation1/p' fich.in |grep -o '[[:alnum:].-]*@[ [:alnum:]]*.[ [:alpha:]]*'| sort -u;-))

Stef60 · Answer

j'essaye de me servir de ta methode, mais je n'y arrive pas.
Je t'explique pourquoi.
mon fichier de depart ne doit pas etre modifié sous peine de planter l'application qui le lit.
De plus, j'ai besoin d'obtenir une liste de diffusion donc les adresse doivent etre separées par une virgule.
C'est quoi stef2

lami20j · Answer

root@debian:~# cat fichier
[groups]

Adm = thierry-externe.henry@ccm.com,zinedine-externe.zizou@ccm.com,michel.platini@ccm.com
Initiation1 = samir-externe.nasri@ccm.com,karim.benzema@ccm.com
projetTestW = karim.benzema@ccm.com
projetTestR =
projettest2R =
projettest2W = nicolas.anelka@ccm.com

[Initiation1:/]
@Adm = rw
@Initiation1 = r
@Initiation1 = r
* =

[Initiation1:/Trunk/toto]
thierry-externe.henry@ccm.com = rw
* =

[projetTest:/]
@projetTestW=r
@projetTestR=r
@adm=r
* =

root@debian:~# cat stef.sh
#!/bin/bash
perl -ne 'if (1../\[Initiation/){s/.*=\s*//;s/\n/,/;s/,$//;print if /\@/}' fichier | uniq > resultat

root@debian:~# sh stef.sh
root@debian:~# cat resultat
thierry-externe.henry@ccm.com,zinedine-externe.zizou@ccm.com,michel.platini@ccm.comsamir-externe.nasri@ccm.com,karim.benzema@ccm.comkarim.benzema@ccm.comnicolas.anelka@ccm.com

Stef60 · Answer

Ca marche impec.

Merci à jipicy et lami20j
les 2 methodes fonctionnent, j'ai pris celle jipicy

et pour info, j'ai meme reussi a faire un cron  ;-)

Encore merci pour votre rapidité.

Recuperer des adresses mail dans un fich txt

30 réponses

Discussions similaires