Discussion :

[theredkamarad]

Bonjour,

je suis sous linux, ubuntu 7.10

J'ai un repertoire config, à copier dans tous les repertoires des utlisateurs.
/home/master/config

à copier dans :

/home/a/antonin/
/home/a/alcyon/
/home/b/beetlejuice/
.
.
/home/z/zimbawe/

pour obtenir :
/home/a/antonin/config
/home/a/alcyon/config
/home/b/beetlejuice/config
.
.
/home/z/zimbawe/config

Comment faire en perl?

Merci bcp

[CKLN00]

bon je signale je suis débutant, mais une question me viens à l'esprit pourquoi PERL ? et pas en shell tout simplement ???
car il me semble qu'en PERL c'est bien plus compliquer qu'un tout petit script en bash enfin bon ce n'est que mon avi.


pour moi si tu le fait en perl il me semble qu'il te faut lister tout les fichier du répertoire config, copier chaque fichier ligne à ligne dans le dossier cible. et tout ça dans un boucle qui le fasse pour chaque utilisateur.
Ce qui me semble plus long qu'un (ou 2) petit for en bash.

[theredkamarad]

Bonjour,

Effectivement, en fait je ne prefere pas ajouter de shell supplémentaire, tel que tcsh etc.

Et étant débutant, je pensai aussi qu'en perl ce serai plus simple... qu'en script shell conventionel.

Donc en fait j'en susi a un point ou toute solution : shell, perl, python, aucune idée, sont bonnes...

Merci
@+

[iblis]

Si tu n'as pas d'impératif de portabilité, tu peux effectivement faire cela très facilement en shell.

Par exemple, mets la liste de tes répertoires de destination dans un fichier dirlist, puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for dir in $(cat dirlist); do cp -Rf /path/to/your/startfolder/* $dir; done

Le -f écrase la destination (utile pour les back-up).

Si tu veux le faire en Perl, tu peux utiliser File::Find et File::Copy pour te simplifier la vie. Je ne te le fais, si tu apprends Perl il vaut mieux que tu essaies par toi-même. Poste tes essais et questions, tu auras certainement des réponses.

[theredkamarad]

Merci pour cette, réponse.
Effectivement avec cette logique la je comprends mieux comment faire.

Je laisse pour l'instant le perl de coté, sauf pour quelques manip spécifiques, comme le changement de chaine de carac, ou le travail sur flux.

Et je vais prendre l'option du script shell pour l'instant encore merci.
@+