Extraire les tags ID3 des mp3

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.