skip to main | skip to sidebar
Code 18
Manuel du savoir-faire à l'usage des geeks et des curieux
RSS
  • Accueil
  • Le web au Québec
  • Liens
  • Twitter
  • Facebook
  • À propos

jeudi 27 mai 2010

Extraire les tags ID3 des mp3

Publié par Infinite Loop, à 18 h 11 0 commentaire

Je possède une collection mp3 que je conserve sur un disque dur portatif et que je traine au bureau tous les jours. Parfois, certains collègues de travail me demandent ce que j'écoute, s'informent de mes goûts car ils n'ont aucun moyen de le savoir puisque je n'utilise plus iTunes et que je ne partage pas le répertoire de musique sur le serveur comme le font certains.

Je peux nommer quelques groupes que j'écoute dans le moment mais sinon, comment répondre à cette question sans demeurer vague et pour être fidèle à tout ce qui me plait ? Pour faire simple, mieux vaut exporter la liste des artistes de ma collection.

Comment procéder ? Par programmation, avec un petit script Perl qui lira les tags ID3v2 de chaque fichier. D'abord, j'ai choisi d'utiliser le module MP3::Tag (disponible via CPAN - Comprehensive Perl Archive Network) que je devrai installer sur Ubuntu :

Ouvrez un terminal :

sudo perl -MCPAN -e shell

Ceci permet d'ouvrir un shell en mode interactif. Une fois dans le shell CPAN :

install MP3::Tag

Ensuite, ça se fait automatiquement. Référez-vous à la documentation pour plus de détails sur l'installation manuelle.

Mon but est d'obtenir l'ensemble des fichiers mp3 dans mon répertoire Music et d'extraire l'artiste du tag ID3 pour chacun d'eux. Je voudrai aussi que la liste comprenne les fichiers dans les sous-répertoires, donc récursivement (mes fichiers sont classés par artistes et chaque album possède aussi son propre dossier).

La commande suivante permettra de les lister tous :

find "/home/code18/Music/" -name \*.mp3 -print

Le script commenté (extract-artists.pl) :

#!/usr/bin/perl

use MP3::Tag;

my @list = ();

# exécution de la commande récursive, notez l'utilisation du backtick
my $output = `find "/home/code18/Music/" -name \*.mp3 -print`;

# chaque ligne de l'output correspond à un fichier
@files = split(/\n/,$output);

foreach $file (@files) {
$mp3 = MP3::Tag->new($file);
$mp3->get_tags();

if(exists $mp3->{ID3v2} ){
push(@list, $mp3->{ID3v2}->artist);

# autres
#print $mp3->{ID3v2}->artist . "\n";
#print $mp3->{ID3v2}->title . "\n";
#print $mp3->{ID3v2}->album . "\n";
#print $mp3->{ID3v2}->year . "\n";
#print $mp3->{ID3v2}->genre . "\n";
}
else{
print 'Oups, pas de tag ID3v2';
}

$mp3->close();
}

# noms uniques
my %artists = ();
foreach my $name (@list) {
$artists{$name} = 1;
}
my @unique = keys(%artists);

open(FILE, '>>/home/code18/Desktop/artistes.txt');
foreach $artist (sort(@unique)){
print FILE "$artist\n";
}
close(FILE);
On est maintenant prêt à l'exécuter. Dans un terminal :

perl extract-artists.pl

À la fin, un fichier artistes.txt sera créé contenant la liste des noms uniques des artistes, à raison d'un par ligne (celui pour ma collection pèse 12 kb).

Notez que plus la collection est volumineuse, plus le script prendra du temps à rouler (quelques minutes). Il y a aussi un hic dans le script : la fonction sort() trie les noms par ordre alphabétique en tenant comptes des minuscules, majuscules et accents. Les noms en minuscules seront à la fin, suivi des noms accentués.


Tags: Musique, Perl, Programmation

0 réponse à "Extraire les tags ID3 des mp3"


Publier un commentaire

Message plus récent Messages plus anciens Accueil
S'abonner à : Publier des commentaires (Atom)
    Suivre @code18 sur Twitter

    Catégories

    • Apache (21)
    • Citations (167)
    • Club Vidéo (24)
    • Coffre à outils (56)
    • CSS (8)
    • Curiosités (117)
    • Design Pattern (2)
    • Drupal (8)
    • Easter Eggs (22)
    • Extensions Firefox (20)
    • GIMP (7)
    • Histoire (21)
    • HTML (32)
    • Humour (57)
    • Intégration (34)
    • iPod (12)
    • JavaScript (110)
    • Jeu de combat (6)
    • Le coin du geek (128)
    • Liens (12)
    • Linux (56)
    • Livres (78)
    • Lois et principes (46)
    • Marché des saveurs (26)
    • Mathématique (18)
    • Mobile (5)
    • Montréal (32)
    • Musique (112)
    • Pancartes et écriteaux (16)
    • Perl (8)
    • Pérou (1)
    • PHP (130)
    • PostgreSQL (44)
    • Programmation (105)
    • Saviez-vous que (55)
    • Sécurité (22)
    • SEO (5)
    • SQL Server (22)
    • Vieilles publicités (6)
    • Virtualisation (8)
    • Voyages (1)
    • Zend Framework (26)

    Divers

    Archives

    • ►  2015 (6)
      • ►  août 2015 (1)
      • ►  juillet 2015 (1)
      • ►  février 2015 (3)
      • ►  janvier 2015 (1)
    • ►  2014 (8)
      • ►  décembre 2014 (1)
      • ►  novembre 2014 (1)
      • ►  octobre 2014 (1)
      • ►  août 2014 (2)
      • ►  juillet 2014 (2)
      • ►  janvier 2014 (1)
    • ►  2013 (53)
      • ►  décembre 2013 (2)
      • ►  novembre 2013 (1)
      • ►  octobre 2013 (3)
      • ►  septembre 2013 (2)
      • ►  août 2013 (5)
      • ►  juillet 2013 (3)
      • ►  juin 2013 (5)
      • ►  mai 2013 (3)
      • ►  avril 2013 (7)
      • ►  mars 2013 (7)
      • ►  février 2013 (11)
      • ►  janvier 2013 (4)
    • ►  2012 (105)
      • ►  décembre 2012 (8)
      • ►  novembre 2012 (5)
      • ►  octobre 2012 (4)
      • ►  septembre 2012 (1)
      • ►  août 2012 (8)
      • ►  juillet 2012 (7)
      • ►  juin 2012 (7)
      • ►  mai 2012 (10)
      • ►  avril 2012 (13)
      • ►  mars 2012 (15)
      • ►  février 2012 (15)
      • ►  janvier 2012 (12)
    • ►  2011 (146)
      • ►  décembre 2011 (14)
      • ►  novembre 2011 (11)
      • ►  octobre 2011 (12)
      • ►  septembre 2011 (13)
      • ►  août 2011 (15)
      • ►  juillet 2011 (17)
      • ►  juin 2011 (18)
      • ►  mai 2011 (15)
      • ►  avril 2011 (9)
      • ►  mars 2011 (7)
      • ►  février 2011 (3)
      • ►  janvier 2011 (12)
    • ▼  2010 (398)
      • ►  décembre 2010 (29)
      • ►  novembre 2010 (28)
      • ►  octobre 2010 (32)
      • ►  septembre 2010 (34)
      • ►  août 2010 (22)
      • ►  juillet 2010 (35)
      • ►  juin 2010 (42)
      • ▼  mai 2010 (36)
        • Buckethead et son chapeau PFK
        • Site de vente de mp3 usagés
        • Citation no. 84 sur les programmeurs
        • Microsoft compare IE6 à du lait périmé
        • Maison spéciale dans une colline en Suisse
        • Extraire les tags ID3 des mp3
        • Gaffe sous systèmes Unix / Linux
        • Marchés boursiers galactiques
        • Raccourcir les chaînes d'objets en JavaScript
        • Simulation de combat - Étape 4
        • Citation no. 83 sur la conception de logiciels
        • Journée presque parfaite, sans compromis
        • Partitions de guitare sous Linux
        • Maison en champignon à Toronto
        • Ce que devra faire Halak ce soir
        • Accordéon simple avec jQuery
        • Composer une chanson au téléphone
        • Investir dans ses connaissances
        • Simulation de combat - Étape 3
        • Citation no. 82 sur l'explication
        • Easter egg dans EA NHL 09
        • Mais qui a volé le pénis de Napoléon ?
        • Internationalisation i18n en programmation
        • Simulation de combat - Étape 2
        • Simulation de combat - Étape 1
        • C'est comme ça que ça doit être fait
        • Parc du Mont-Royal, dimanche PM
        • Citation no. 81 sur la noix de coco
        • Biographie de Mike Patton
        • Design Patterns, vous y comprenez quelque chose ?
        • Un mot pour les nerds
        • Hang, un instrument de musique atypique
        • Plugin autocomplete simple pour jQuery
        • Savoir reconnaître un manipulateur
        • Citation no. 80 sur le café
        • Empêcher un objet PHP d'être cloné
      • ►  avril 2010 (37)
      • ►  mars 2010 (34)
      • ►  février 2010 (32)
      • ►  janvier 2010 (37)
    • ►  2009 (430)
      • ►  décembre 2009 (32)
      • ►  novembre 2009 (34)
      • ►  octobre 2009 (33)
      • ►  septembre 2009 (37)
      • ►  août 2009 (37)
      • ►  juillet 2009 (39)
      • ►  juin 2009 (38)
      • ►  mai 2009 (37)
      • ►  avril 2009 (35)
      • ►  mars 2009 (37)
      • ►  février 2009 (32)
      • ►  janvier 2009 (39)
    • ►  2008 (84)
      • ►  décembre 2008 (34)
      • ►  novembre 2008 (39)
      • ►  octobre 2008 (11)

    Abonnés

Copyright © All Rights Reserved. Code 18 | Converted into Blogger Templates by Theme Craft