[Pascal] Traduire un script shell en pascal

Traduire un script shell en pascal [Pascal] - Delphi/Pascal - Programmation

Marsh Posté le 08-03-2006 à 10:03:30    

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 :
  1. #On extrait de la date le mois et le jour
  2. mmjj=`date +%m%d`
  3. #Création d'un répertoire temporaire
  4. mkdir temp
  5. #Parcours le fichier
  6. cat svRJ |
  7. while read ligne
  8. do
  9. set `echo $ligne`
  10. numgref=$1
  11. lignegref=`grep $(($numgref)) gref.inpi`
  12. set `echo $lignegref`
  13. nomgref=$2
  14. nomfichier=jaf.$nomgref$mmjj
  15. if test ! -e save/$nomfichier
  16. then
  17.  if test ! -e greffes/$nomfichier
  18.  then
  19.   echo $ligne >> temp/$nomfichier
  20.  fi
  21. fi
  22. done
  23. #on stocke la liste des fichiers créés dans un fichier "liste"
  24. cd temp/
  25. find *$mmjj > liste
  26. cd ..
  27. if [ -e temp/liste ]
  28. then
  30. cat temp/liste |
  31. while read fichier
  32. do
  33.  # On déplace le fichier du répertoire "temp" s'il n'est pas présent dans save et dans greffe
  34.  if test ! -e greffes/$fichier
  35.  then
  36.   `mv temp/$fichier greffes/`
  37.  fi
  38. done
  39. fi
  40. #suppresion des fichiers créés
  41. rm temp/liste


 
Merci beaucoup d'avance

Reply

Marsh Posté le 08-03-2006 à 10:03:30   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed