Reading Id3 tags

I want to make a script that will create dir for each artist and then copy
all the files from that artist into that dir. Now I think I should be able
to create the script fine, but I need to be able to read the Mp3's Id3 tag
to get the name or the artist. Is this possible?

And if it is how can it be done

I figured out how to read id3 tags. I downloaded and installed id3ed

Now lets see if I can make teh script.

In perl, you could use one of the modules from CPAN (http://www.perl.com/CPAN-local/modules/by-module/MP3/), then use that to read the tags and move files to the appropriate directories.

Just be aware that, unless you created the mp3 yourself, the id tag could be misspelled. This could tend to mess up your system if you use files obtained from p2p systems; some people have awful spelling

Of course, not that I would know because I never do that sort of thing

got it!!!

kill-hup, I know what you mean

But with my basic script it will organize it a fair bit, instead of 30 Nine inch nails mp3's I only have 3 dir (NIN, Nine inch nails, and Nine Inch Nails).

Much easier to handle.

I'd be surprised if you get this message, but if you do would you mind posting a link to your script? I'm trying to do the same thing.

You probably won't get an answer from these guys so...I went ahead and wrote a script of my own since I needed one for myself:

#!/usr/bin/perl

use MP3::Tag;
use strict;

my @a = glob "*.mp3";
my @b = glob "*.MP3";
my @files = (@a, @b);

my $x;
foreach $x (@files)
{
  my $mp3 = MP3::Tag->new($x);
  my ($title, $track, $artist, $album, $comment, $year, $genre) = $mp3->autoinfo();
  print "$x\n";
  if (!(-d "$artist"))
  {
    mkdir "$artist";
  }
  if (!-d "$artist/$album")
  {
    mkdir "$artist/$album";
  }
  rename ($x, "$artist/$album/$x");
  printf ("Moved $x to $artist/$album/$x\n");
}

Save as somefile.pl, chmod u+x somefile.pl, then ./somefile.pl in the directory containing your unsorted mp3's.

I decided that it was time to organize some music and I realised I had a lot more OGGs that I'd realised, so here's a better script. It should also handle FLAC files (MP3, FLAC, and OGG are all that's currently supported under the module I'm using: http://search.cpan.org/~flora/Audio-...io/File/Tag.pm), although FLAC's implementation of ID3 is a little broken.
Just like the last one, it'll organize files by "./artist/album/". Just cd to the directory of songs you want organized and run this program. Enjoy.

#!/usr/bin/perl
use strict;

use Audio::File::Flac::Tag;
use Audio::File::Ogg::Tag;
use Audio::File::Mp3::Tag;

my @Mp3 = glob "*.mp3";
my @Flac = glob "*.flac";
my @Ogg = glob "*.ogg";

my $x;

foreach $x (@Mp3)
{
  my $song = Audio::File::Mp3::Tag->new($x);
  my ($artist, $album) = ($song->artist, $song->album);
  if (!(-d "$artist"))
  {
    mkdir "$artist";
  }
  if (!-d "$artist/$album")
  {
    mkdir "$artist/$album";
  }
  rename ($x, "$artist/$album/$x");
  printf ("Moved $x to $artist/$album/$x\n");
}

foreach $x (@Flac)
{
  my $song = Audio::File::Flac::Tag->new($x);
  my ($genre, $artist, $album) = ($song->artist, $song->album);
  if (!(-d "$artist"))
  {
    mkdir "$artist";
  }
  if (!-d "$artist/$album")
  {
    mkdir "$artist/$album";
  }
  rename ($x, "$artist/$album/$x");
  printf ("Moved $x to $artist/$album/$x\n");
}

foreach $x (@Ogg)
{
  my $song = Audio::File::Ogg::Tag->new($x);
  my ($artist, $album) = ($song->artist, $song->album);
  if (!(-d "$artist"))
  {
    mkdir "$artist";
  }
  if (!-d "$artist/$album")
  {
    mkdir "$artist/$album";
  }
  rename ($x, "$artist/$album/$x");
  printf ("Moved $x to $artist/$album/$x\n");
}

Adding this to the gentoo wiki:
http://gentoo-wiki.com/index.php?tit..._digital_music