incrementation nom fichier perl Fermé

Question

bonjour ,
je voudrai pouvoir renommer des fichiers (portant toujours le meme nom et j'en ai enormément) automatiquement incrementés dans un repertoire "traiter"
ou avec un nouveau nom que l'utilisateur peut donner

ex : fichier en \traiter\fichier1
fichier en \traiter\fichier2 (incrementation auto car fichier1 existe)

ou

"entre un nouveau nom :"
fichier en \traiter\abc
fichier en \traiter\bobo (nom donné par l'utilisateur)

voici le script que j'ai ecrit mais ca marche pas !:

rename("fichier", "traiter/fichier*.old");
ou
print"entrer un nouveau nom:";
chop $new=<stdin>;
rename("fichier", "traiter/"$new);

jphilippe · Answer

Je n'ai pas vraiment compris ton besoin:

En entrée, tu as un répertoire plein de fichiers différenciés par un incrément en postfixe ?
Tu veux renommer quoi ? l'ensemble des fichiers présent ? un seul fichier ?

et finalement sur quel os travailles tu ?
Après je bosse pour toi

Jean-Philippe

Bobinours · Answer

Salut aure,
je te conseille de regarder du coté de l'incrémentation des chaines de caractères :

my $chaine = "abc";
$chaine++;
echo $chaine; # affichera "abd";

Donc si tu as "abc1", ça devra donner "abc2" et ainsi de suite...
regarde quand même ce qui se passe après "abc9"... Je pense que ça donnera "abd0" ?! Pour cela il faudrait commencer par un nom "abc01" voir "abc001" pour plus de 100 fichiers.
N'hesite pas a me contacter.

-= Bobinours =-

Incrementation nom fichier perl

2 réponses

Discussions similaires