snippetsmania.com
Post and share your code snippets

#!/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 : $!
} 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!

";
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!

}

}

source