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

Programmation et administration système Perl Discussion :

Renommer fichiers avec nom d'albums et titres


Sujet :

Programmation et administration système Perl

  1. #1
    Candidat au Club
    Homme Profil pro
    Enseignant
    Inscrit en
    Janvier 2016
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Hautes Alpes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Janvier 2016
    Messages : 5
    Points : 2
    Points
    2
    Par défaut Renommer fichiers avec nom d'albums et titres
    Bonjour, j'ai pas mal de fichiers mp3 qui portent des noms divers (voir capture d'écran) et j'aimerais bien avoir un script perl qui renomme chaque fichier par le nom de l'abum, un tiret puis le titre et qui crée un dossier par album en mettant dedans tous les fichiers de cet album.

    J'ai déjà un script pour renommer mes photos par date de création et qui les place chacune dans le dossier relatif à la date.

    Cela me fait une base pour démarrer. Je précise que je ne sais pas coder en perl, j'ai simplement des bases en javascript.

    Est ce que quelqu'un pourrait me donner des pistes pour que je puisse démarrer? Merci

    Mon script pour mes photos :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
        #!/usr/bin/perl
        use strict;
        use warnings;
        use autodie;
     
        use File::Basename;
        use File::Find;
        use File::stat;
     
        $::PROGRAM = basename $0;
     
        sub creation_date {
          my $i = 0;
          my @cdate = map {$_ + (0, 1, 1900)[$i++]} (localtime(stat(shift)->ctime))[3..5];
          return sprintf("%04d.%02d.%02d", reverse @cdate);
        }
     
        sub process {
          if (-f) {
            my $file = $_;
            # on ne traite pas un fichier de même nom que le script
            return if (/^$::PROGRAM$/);
            # on récupère la date de création au format adéquat
            my $cdate = creation_date($file);
            # on ne fait rien si le fichier est déjà dans le bon répertoire
            return if (basename($File::Find::dir) eq $cdate);
            # Arrêt si le répertoire ne peut être créé à cause d'un fichier de même nom
            die "Erreur: le nom '$cdate' est déjà utilisé par un fichier!" if (-f $cdate);
            # On crée le répertoire s'il n'existe pas
            mkdir $cdate unless (-d $cdate);
            # Arrêt si le fichier existe déjà dans le répertoire
            die "Erreur: collision: '$file' existe déjà dans le dossier $cdate!" if (-f $cdate.'/'.$file);
            # on effectue le déplacement du fichier dans le répertoire
            rename $file, $cdate.'/'.$file;
          }
        }
     
        find({ bydepth => 1, wanted => \&process, follow => 1 }, '.');
    Images attachées Images attachées  

  2. #2
    Expert éminent Avatar de CosmoKnacki
    Homme Profil pro
    Justicier interdimensionnel
    Inscrit en
    Mars 2009
    Messages
    2 848
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Justicier interdimensionnel

    Informations forums :
    Inscription : Mars 2009
    Messages : 2 848
    Points : 6 535
    Points
    6 535
    Par défaut
    Il existe un module permettant d'extraire les métadonnées des fichiers mp3: https://metacpan.org/pod/MP3::Tag

    Ensuite pour le reste, je te conseille de ne pas chercher à modifier ton script pour les photos pour vaguement le faire coller à ton besoin, mais à t'initier à Perl à travers les nombreux tutoriels présent sur le site.
    Brachygobius xanthozonus
    Ctenobrycon Gymnocorymbus

Discussions similaires

  1. renommer des fichiers avec nom du répertoire
    Par mitch123 dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 1
    Dernier message: 26/05/2013, 20h35
  2. [Upload] Nom de fichier avec nom accentué
    Par MacReiben dans le forum Langage
    Réponses: 1
    Dernier message: 15/09/2008, 20h50
  3. [VBA] renommer fichier avec delai avant apparition du fichier
    Par yepAccess dans le forum VBA Access
    Réponses: 8
    Dernier message: 09/04/2007, 07h23
  4. Aide pour renommer fichiers avec .bat
    Par bobsapp dans le forum Windows
    Réponses: 6
    Dernier message: 21/03/2007, 14h11
  5. Excel : lien hypertexte vers un autre fichier avec nom page
    Par delamarque dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 28/11/2005, 10h33

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