[rustyclockwork]

I hate how iTunes formats imported music via folders... I want my music to be in this format...

Band Name - Name Of Song.m4a

not Band Name / Album Name / Name Of Song.m4a

is there a Perl script for OS X that allows me to take the song names in a folder (generated by iTunes), that once initialized will ask me what I want to append my m4a files to...

example...

The Tennessee Waltz.m4a
Conquest.m4a

once the perl script is run, it will ask me what to append these files in a directory...

So I enter "Patti Page - "

so that it will convert these files to...

Patti Page - The Tennessee Waltz.m4a
Patti Page - Conquest.m4a

anyone have any ideas? This is what I have so far and a friend helped me with this, but the spaces in the file names are giving us problems.

here is the perl code:

#!/usr/bin/perl
printf "enter text to append to all files in this directory: ";
$crap = <STDIN>;
chomp($crap);
opendir(D,"./");
@files=readdir(D);
for $f (@files){
# do something else with $f
print "mv ".$f." ". $crap.$f."\n";
}
closedir(D);

thanks for any help,

Jason

[Basilisk]

Off the top of my head, I'd avoid using mv and the shell, that avoids the shell quoting silliness that you were probably missing.

#!/usr/bin/perl

printf "enter text to append to all files in this directory: ";
$crap = <STDIN>;
chomp($crap);
opendir(D,"./");
@files=readdir(D);
for $f (@files){
if (! -e $crap . $f) {
if (!rename($f, $crap . $f)) {
die "Bad rename.\n";
}
}
else {
die "File name \"" . $crap . $f . "\" already exists.\n";
}
}
closedir(D);