id3.pl

#!/usr/bin/perl    -w
use strict;
use MP3::Info;
 
#############################################################
#                                                           #
#                                                           #
#                                                           #
#                      NOAH SUSSMAN                         #
#                                                           #
#                           id3                             #
#                                                           #
#                Created 6/27/01 at 11:07 PM                #
#                                                           #
#  This script takes a list of directories as its argument. #
#  For mp3s that don't have any id3 information, guess      #
#  the name of the artist and track based on the filename   #
#  and use the MP3-Info module to insert that guess into    #
#  the file as id3v1 tags.                                  #
#                                                           #
#############################################################
 
# get_mp3tag returns the following hash values: TITLE, ARTIST, ALBUM, YEAR, COMMENT, GENRE, TRACKNUM
 
foreach my $dir (@ARGV){    # Get a list of directories from the command line, then cycle through each directory performing the following:
 
	chdir $dir or die qq{Can't open the directory "$dir" because : $!\n} if $dir;	# Go to the directory.
 
	# search nested directories
 
	while (<*>) {    #for all files in the directory
 
		if (-d "$_"){  # If the current file is a directory.			
			my $look_here = $dir."\\$_";  # Add the full path to the directory name			
			#$look_here =~ s/::/:/g;  #  UNCOMMENT THIS LINE ON MAC ONLY: Remove doubled colons (this fixes what I think may be a bug in MacPerl)		
			push @ARGV, $look_here;  # Add the directory name to @ARGV			
			next;
		}
 
	}
 
	# add id3 tags to files that don't have them
 
	while (<*.mp3>) {  # Then do the following to files that have the .mp3 file extension:
 
		if (get_mp3tag($_)){    # if the current file already has id3 tags, skip it!
			#print "Skipping $_ because it already has id3 tags!\n\n";
			next; 
		}
 
		my $name = $_;  # copy the current file's full name into $name
 
		$name =~ s{
			(.*?)  # capture the filename up to 
			\.mp3  # but not including the ".mp3" file extension  
		}{
			$1    
		}ix;			  
 
		# Now, most of my mp3s are named something like: "Tom Waits- Small Change.mp3", so I'm going to treat the name of the current file as a dash-delimited list, where the list items are ARTIST NAME - TRACK NAME.  If there are more than two items in the list, they'll be ignored-- for now.
 
		my @name = split (/-/, $name);  # Store each item in our tab-delimited list in an array called @name
 
		my $counter = 0;
 
		foreach my $i (@name) {  # For each item stored in the @name array
			$i =~ s{^\s*(.*?)\s*$}{$1}g;  #destroy trailing and leading whitespace
		}
 
		my $artist = $name[0];  # The name of the artist (hopefully!)
 
		my $song = $name[1];  # (hopefully) the name of the track
 
		# The script thinks "Gil Scott-Heron" is a dash-delimited list!  So I wrote the Gil Scott-Heron filter:
 
		my $gsf = $artist . $song ;
 
		if ($gsf =~ /gil scottheron/i){  #If $artist is Gil Scott and $song is Heron, that's very wrong.
			$artist = "Gil Scott-Heron";  # The artist's name is actually Gil Scott-Heron
			$song = $name[2];  # Get the track name from the array, where it's been waiting patiently.
		}
 
		# Same problem with "Deee-Lite"
		elsif ($gsf =~ /deeelite/i){
			$artist = "Deee-Lite";
			$song = $name[2];
		}
 
		# Same problem with "The Chi-Lites"
		elsif ($gsf =~ /chilites/i){
			$artist = "Chi-Lites";
			$song = $name[2];
		}
 
		# Same problem with "T-Rex"
		elsif ($gsf =~ /trex/i){
			$artist = "T-Rex";
			$song = $name[2];
		}
 
		#$song =~ s{\.mp3}{}gi;  # NT ONLY: I know I did this above, but that doesnt seem to work on my old NT workstation here at work, so I'm stripping the file extension again...
 
		# set_mp3tag (FILE, TITLE, ARTIST, ALBUM, YEAR, COMMENT, GENRE [, TRACKNUM]) is the syntax used by the MP3-Info module for defining the ID3v1 tags on an MP3 file
 
		set_mp3tag ($_, $song, $artist, "", "", "I love music!");  # write the track and artist names to the mp3 file and that's it!
 
	}
 
}