Discussion :

[sebastien00]

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

[Invité]

Salut,

Quel OS utilises-tu?

[sebastien00]

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

[Invité]

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

[Jedai]

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.

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ï

[sebastien00]

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

[Jasmine80]

Tu peux utiliser la fonction stat().

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

[sebastien00]

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.

[Jasmine80]

Oui, voila quelque chose du genre

mais, je viens de trouver mieux

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 :

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

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

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

[sebastien00]

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

Code :

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

    @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

[Jasmine80]

Code :

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

(-M $fichier)

renvoie la dernière date de modification du fichier

Code :

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

sort { $a <=> $b }

tri croissant

Code :

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

sort { $b <=> $a }

tri décroissant

Code :

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

@fichiers

liste d'entrée contenant les chemins des fichiers

Code :

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

@out

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