Bonjour
Voila j'ai fait un script shell et on m'a demandé de la traduire en pascal.
Mais voila je maitrise peu ce langage.
Pouvez vous m'aider ? svp c'est très important.
J'ai des pb pour créer des répertoires, dire que si un fichier est présent dans un répertoire le déplacer dans un autre, afficher la liste des répertoire et copier cette liste dans un répertoire.
je vous met mon code shell, j'espère que ca pourra vous aider.
Code :
- #On extrait de la date le mois et le jour
- mmjj=`date +%m%d`
- #Création d'un répertoire temporaire
- mkdir temp
- #Parcours le fichier
- cat svRJ |
- while read ligne
- do
- set `echo $ligne`
- numgref=$1
- lignegref=`grep $(($numgref)) gref.inpi`
- set `echo $lignegref`
- nomgref=$2
- nomfichier=jaf.$nomgref$mmjj
- if test ! -e save/$nomfichier
- then
- if test ! -e greffes/$nomfichier
- then
- echo $ligne >> temp/$nomfichier
- fi
- fi
- done
- #on stocke la liste des fichiers créés dans un fichier "liste"
- cd temp/
- find *$mmjj > liste
- cd ..
- if [ -e temp/liste ]
- then
- cat temp/liste |
- while read fichier
- do
- # On déplace le fichier du répertoire "temp" s'il n'est pas présent dans save et dans greffe
- if test ! -e greffes/$fichier
- then
- `mv temp/$fichier greffes/`
- fi
- done
- fi
- #suppresion des fichiers créés
- rm temp/liste
|
Merci beaucoup d'avance
