[SOLVED] Automatically rename folder, create subfolder and move files

Question

Hey all :>
my music directory is a bit messed up and untidy. all albums were encoded into one single folder:
$artist - $album ($year)
Aerosmith - Toys in the Attic (1975)
how can i create a parent folder with the name of the artist (here: Aerosmith), a subfolder for the album without the year (Toys in the Attic) and move all mp3's into it? i have no idea how to handle filenames with bash
thx for every comment! :>
Last edited by arch0r (2010-11-28 16:58:01)

Answer 1

eh, figured I'd make it a little more elegant and add some directory checks. this should work for all cases theoretically so that if you add music later on you can update your directories
preconditions: newly added directories are in the format that was prescribed by you and the output doesn't contain any dashes. (I based my glob off of the presence of a dash.)
#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
chdir "music" or die "cuidado! $!";
my @directories = glob "*-*";
my @artists;
my %albumhash;
foreach(@directories)
push(@artists,split(/ - /,$_));
while(@artists)
my $key = shift(@artists);
my $value = shift(@artists);
push(@{$albumhash{$key}}, $value);
foreach(keys %albumhash)
if(!(-d $_))
mkdir $_,0755 or die "couln't makedir\n";
chdir $_;
foreach(@{$albumhash{$_}})
my $dirname = substr($_,0,(length($_) - 7));
if(!(-d $dirname))
mkdir $dirname,0755 or die "couldn't make subdir\n";
chdir "..";
foreach(@directories)
my $current = $_;
my $targetdir = substr($_,0,(index($_,'-') - 1)) . "/" . substr($_,(index($_,'-')+2),(index($_,'(') - index($_,'-') - 3));
chdir $current;
my @musicfiles = glob("*");
chdir "..";
foreach(@musicfiles)
my $old = "$current/$_";
my $new = "$targetdir/$_";
move($old,$new) or die "Danger Will Robinson! $!";
rmdir($current);
Thanks for the fun distraction, normally I don't like being someone's personal army but you caught me during my vacation   you should be receiving my bill via e-mail (just kidding):D
Last edited by Cyrusm (2010-11-28 16:01:53)