IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

Renommer fichiers d'un dossier par rapport à une liste


Sujet :

Langage Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Homme Profil pro
    Consultant E-Business
    Inscrit en
    Janvier 2019
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Consultant E-Business
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Janvier 2019
    Messages : 3
    Par défaut Renommer fichiers d'un dossier par rapport à une liste
    Bonjour,

    Je souhaiterais renommer l'ensemble des fichiers d'un dossier par rapport un fichier csv de référence.
    exemple d'arbo :

    [dossier]
    > fichier 1.txt
    > fichier 2.txt



    Contenu du fichier csv de référence
    fichier1.txt;test1.txt
    fichier2.txt;test2.txt

    Je veux faire en sorte que fichier1.txt soit renommer par test1.txt
    fichier2.txt par test2.txt
    etc

    Une âme charitable qui pourrait m'aider ?
    langage perl

    Merci,

    Ben.

  2. #2
    Expert confirmé Avatar de disedorgue
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Décembre 2012
    Messages
    4 361
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Décembre 2012
    Messages : 4 361
    Par défaut
    En une ligne:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    perl -F\; -ane 'chomp @F;rename $F[0],$F[1]' fichier.csv
    mais pour tes tests, je te conseille d'abord de faire un print:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    perl -F\; -ane 'chomp @F;print "rename $F[0],$F[1]\n"' fichier.csv
    Et charge à toi de rajouter les répertoires au noms des fichiers...

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Consultant E-Business
    Inscrit en
    Janvier 2019
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Consultant E-Business
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Janvier 2019
    Messages : 3
    Par défaut
    Merci pour ta réponse !
    Mais excuses-moi, je suis débutant en perl.
    Je suis sur Windows, je compte mettre le script sur notepad++ et l’exécuter directement.

    Comment je peux faire pour retranscrire tes commandes dans npd++ ?
    Merci!

  4. #4
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Billets dans le blog
    1
    Par défaut
    Bonsoir,

    pas besoin de Notepad++ pour un script uniligne aussi simple. Il suffit d'ouvrir une "fenêtre DOS" ou console "invite de commande" (taper cmd dans la fenêtre de lancement de programmes), de se positionner dans le bon répertoire et de taper la commande proposée.

    Sauf que, sous Windows, il faut modifier légèreùent la commande proposée par disedorgue, et remplacer les apostrophes par des guillemets (et réciproquement, le cas échéant). Donc, il suffit de taper (ou copier/coller):
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    perl -F\; -ane "chomp @F; rename $F[0], $F[1]" fichier.csv
    Et pour faire un test avec un print avant de lancer la commande ci-dessus:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    perl -F\; -ane "chomp @F; print qq/rename $F[0], $F[1]\n/" fichier.csv

  5. #5
    Futur Membre du Club
    Homme Profil pro
    Consultant E-Business
    Inscrit en
    Janvier 2019
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Consultant E-Business
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Janvier 2019
    Messages : 3
    Par défaut
    Un grand Merci à vous deux pour votre rapidité !
    C'est exactement ce qu'il me fallait.
    Cela fonctionne parfaitement.
    Je passe en Résolu
    Merci encore !
    Ben

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 04/10/2017, 10h16
  2. Réponses: 4
    Dernier message: 06/02/2009, 11h28
  3. Alignement du texte par rapport à une liste
    Par SebastienM dans le forum Mise en page CSS
    Réponses: 12
    Dernier message: 15/05/2008, 16h03
  4. Réponses: 1
    Dernier message: 22/04/2008, 20h35
  5. tri par rapport à une liste dans la clause where
    Par umbakrail dans le forum MS SQL Server
    Réponses: 5
    Dernier message: 19/07/2006, 11h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo