#!/usr/bin/perl
########################################
#             A. I. D. v1.0            #
#       add database entry script      #
#           coded by bitsmart          #
#       (c) 2007 Andrew Prentice       #
#          bitsmart0@gmail.com         #
########################################
print "\nA. I. D. v1.0 (2007) Andrew Prentice\n";
print "\nA lbum\nI nformation\nD atabase\n";
print "\nArtist/Album: ";
chomp($info = <STDIN>); #get the name of the Artist and Album
print "creating new file or appending to existing file..."; #make it l
+ook like we're doing something
$dbentry = "BPM-$info.txt"; #add DB prefix
open(DBENTRY, ">>$dbentry") || die "cannot open file $dbentry: $!"; #o
+pen w/ error handling
print DBENTRY "$info\n "; #append Album info
close(DBENTRY); #make sure we're all neat
print "done.\n"; #done creating or appending the file
print "How many tracks do you want to add? ";
$numberoftracks = <STDIN>; #how many tracks?
chomp($numberoftracks); #remove trailing newline
$counter = 1; #need counter to count up to no. of tracks
while ($counter <= $numberoftracks) { #cycle thru each of the tracks a
+nd get info
    print "\nTrack name $counter: ";
    chomp($trackname = <STDIN>); #name of track
    print "Track length $counter: ";
    chomp($tracklength = <STDIN>); #length of track
    print "Track BPM $counter: ";
    chomp($trackbpm = <STDIN>); #beats per minute of track
    print "adding track..."; #make it look like we're doing something
    $track = "$counter - $trackname - $tracklength - BPM=$trackbpm"; #
+string it together
    open(TRACK, ">>$dbentry") || die "cannot open file $dbentry"; #ope
+n w/ error handling
    print TRACK "\n$track"; #add each song to the file
    close(TRACK); #make sure we're all neat
    $counter++; #increment our counter
    print "done."; #done adding track
}
open(LAST, ">>$dbentry") || die "cannot open file $dbentry"; #one more
+ time w/ error handling
print LAST "\n"; #add one last newline for good measure. =)
close(LAST); #make sure we're all neat
print "\nAll done! Added $info to the database.\n"; #self explanatory

#!/usr/bin/perl
########################################
#             A. I. D. v1.0            #
#        database search script        #
#           coded by bitsmart          #
#       (c) 2007 Andrew Prentice       #
#          bitsmart0@gmail.com         #
########################################
print "\nThis program searches for songs with the same BPM.\n";
print "\nWhat BPM do you want to search for? ";
chomp($inpt = <STDIN>); #get the BPM to search for
print "searching..."; #make it look like we're doing something
$bpm = "BPM=$inpt"; #add our little tag
opendir(DIREC,".") || die "cannot open directory"; #open current direc
+tory w/ error handling
foreach $name(sort(readdir(DIREC))) { #for each filename beginning w/ 
+"BPM-", add to array
    if ($name =~ /^BPM-/) { #if the name contains "BPM-"...
        push @files, $name; #add it!
    }
    print "."; #add another "doing something" mark
}
closedir(DIREC); #close the dir
foreach my $filename ( @files ) { #for each filename in the array
    open(PHILE, '<', $filename) || die "cannot open $filename: $!"; #o
+pen file w/ error handling
    my @lines = scalar <PHILE>; #get the Artist/Album info
    while ( <PHILE> ) {
        push @lines, $_ if /$bpm/;
    }
    if ( @lines > 1 ) {
        print @lines;
    }
    else {
        print "sorry, no matching BPMs found."; #deliver the bad news
    }
    close PHILE; #finish up
}