Deplacement de fichier

Bonjour,
Je débute dans Perl, J'aimerais bien avoir vos avis sur la faisabilité et la complexité de ma demande. Si vous avez des exemples pour m'aider, n'hésitez pas à me les envoyer.
J'ai des fichiers XML dans un répertoire (IN).
Je souhaite faire un script Perl qui :
- Récupère que dix (par exemple) fichiers XML (les plus anciens) et les déplacer dans un autre répertoire (OUT).

Merci

Salut,

Quel OS utilises-tu?

Windows PK. Perl n'est pas indépendant du système d'exploitation?

Bien sûr, mais pas indépendant du système de fichier.

Citation:

---

Envoyé par Mygale1978

Bien sûr, mais pas indépendant du système de fichier.

---

On peut le rendre pratiquement indépendant en utilisant des modules comme File::Spec (dans le CORE) pour toutes les manipulations de chemins.

Citation:

---

Bonjour,
Je débute dans Perl, J'aimerais bien avoir vos avis sur la faisabilité et la complexité de ma demande. Si vous avez des exemples pour m'aider, n'hésitez pas à me les envoyer.
J'ai des fichiers XML dans un répertoire (IN).
Je souhaite faire un script Perl qui :
- Récupère que dix (par exemple) fichiers XML (les plus anciens) et les déplacer dans un autre répertoire (OUT).

---

Relativement facile, consulte notre FAQ pour les bases et la fonction sort() et utilise la fonction move() de File::Copy (présent dans le CORE).
Sache que ça peut être fait en trois ligne de code à peu près.

--
Jedaï

Merci pour votre aide.
Je me suis inspiré ou plus tot, j'ai appris grace à la FAQ, comment ouvrir et fermer un repertoire.
Mais je ne sais toujours pas comment faire pour recuperer seulement les 10 fichiers les plus anciens de mon répertoire IN et les déplacer dans un répertoire OUT.
Pour le deplacement, je sais qu'il faut utiliser la fonction Move, ce qui me pose problème, c'est comment retrouver les 10 fichiers les plus anciens.
Merci

Tu peux utiliser la fonction stat().

http://perldoc.perl.org/functions/stat.html

Si j'ai bien compris, la fonction Stat me donnera pour chaque fichier sa dernière date de modification. Ensuite, j'aurais plus qu'a utiliser la fonction Sort pour en recuperer par exemple les 10 fichiers les plus anciens.

Oui, voila quelque chose du genre :king:

mais, je viens de trouver mieux

Citation:

---

Le bloc anonyme étant totalement arbitraire, nous pouvons donc réaliser n'importe quel tri très facilement grâce à ce modèle. Voici par exemple un tri sur la date de modification des fichiers :

---

Code:

---

@out = sort { -M $a <=> -M $b } @fichiers;

---

http://articles.mongueurs.net/magazines/linuxmag48.html

c'est un peu plus dur à comprendre lol. Je commence à travailler avec Perl depuis hier soir.
Cette commande :

Code:

---

@out = sort { -M $a <=> -M $b } @fichiers;

---

va elle trier tout mes fichiers (par la dernière date de modification)? Ils seront tous stockés dans une variable, un tableau..? Si tu peux m'expliquer un petit plus ca serait super gentil. Je débute et je constate que j'ai un peu de mal.
Merci

Code:

---

(-M $fichier)

---

renvoie la dernière date de modification du fichier

Code:

---

sort { $a <=> $b }

---

tri croissant

Code:

---

sort { $b <=> $a }

---

tri décroissant

Code:

---

@fichiers

---

liste d'entrée contenant les chemins des fichiers

Code:

---

@out

---

liste d'e sortie contenant les chemins des fichiers triés