#!/usr/bin/perl
use strict;
use warnings;
use MP3::Tag;
use File::Find;
use DBI;

#set up sqlite connection
my $db = DBI->connect("dbi:SQLite:music.sqlite","","");

#set up variables
my $count = 0;
my @songinfo = 
my $mp3 =
my @dirs = ("/users/mine/music");

# Get rid of the previous version of the table
$db->do("DROP TABLE IF EXISTS Songs") or DIE("Couldn't drop old table"
+);
# Recreate Table
$db->do("CREATE TABLE songs (id INTEGER PRIMARY KEY AUTOINCREMENT, Tra
+ck INTEGER, Title TEXT, Artist TEXT, Album TEXT, Year INTEGER, Genre 
+TEXT, Path TEXT)") or DIE("Couldn't create new table");
#set up SQL statement
my $sth = $db->prepare('INSERT INTO Songs (Track, Title, Artist, Album
+, Year, Genre, Path) VALUES  (?, ?, ?, ?, ?, ?, ?)');

# get total number of mp3's
my @songtotal = `dir c:\\users\\mine\\music\\*.mp3 /s`;
my @mp3total = split(/ /, trim($songtotal[(scalar @songtotal)-2]));

# look for files in each directory
find(\&displayMP3Info, @dirs);

# this function is called every time a file is found 
sub displayMP3Info {
    # if the file has an MP3 extension
    if (/\.mp3$/i) {
        # increment counter
        $count++;
        # create new MP3-Tag object
        $mp3 = MP3::Tag->new($_);
        # get tag information
        $mp3->get_tags();
        # check to see if an ID3v1 tag exists
        if (exists $mp3->{ID3v1})
        {
            #if it's an ID3V1 Tag stick the parts of it into an array 
+called songinfo
            @songinfo = ($mp3->{ID3v1}->track, $mp3->{ID3v1}->title, $
+mp3->{ID3v1}->artist, $mp3->{ID3v1}->album, $mp3->{ID3v1}->year, $mp3
+->{ID3v1}->genre, $File::Find::name);
            # put it in the database
            $sth->execute($songinfo[0], $songinfo[1], $songinfo[2], $s
+onginfo[3], $songinfo[4], $songinfo[5], $songinfo[6]); 
            # print "\n$songinfo[0], $songinfo[1], $songinfo[2], $song
+info[3], $songinfo[4], $songinfo[5], $songinfo[6]\n";
            # update the total on the screen
            printf STDERR ("\r%02d of $mp3total[0] files.", $count);
        }
        # clean up
        $mp3->close();
    }    
}
print "Done.\n";
# trim function to get rid of leading and trailing spaces
sub trim{
   my $string = shift;
   $string =~ s/^\s+|\s+$//g;
   return $string;
}
[download]