#!/usr/bin/perl -w
#    mp3.pl v0.9 by strfry()  (vim@fubaria.net)    
#    filenames (eg. mp3's) that have silly characters in them, like   
+     #
#    \'s, single quotes ('), and spaces (" ").    
#
#    can now do recursive renames (be careful!) (8
#                    
############################################################








use strict;    # or die $!

use File::Find;            # for recursive capability.
use Getopt::Std;        # grab command-line switches.
use vars qw/$opt_h $opt_r/;    # make sure we have variables for getop
+t.
getopts('hr');            # grab 'em.


$0=~s|.*[/\\]||;        # remove trailing crap from $0 
my $bl = "\e[1;30m";        # $bl == black
my $red = "\e[0;31m";        # $red == duh!
my $cl = "\e[m";        #



### catch the command-line and switches here. ###

my($arg) = $ARGV[0] if ($ARGV[0]);
&usage if ((!$ARGV[0]) || ($opt_h));
&usage if($opt_h);

&simple_rename($arg) if (!$opt_r);
if ($opt_r){
find(\&wanted, $arg);
print "\n\tfinished recursing $arg\n\n";
}




####################################
#                   #    
# sub-routines go here.           # 
#                   #
####################################


sub usage {

die "usage\e[1m:\e[m $0 \e[1;30m/\e[mpath\e[1;30m/\e[mto\e[1;30m/\e[mm
+p3\e[1;30m/\e[mdirectory \n\n"," " x 7, "Get rid of annoying characte
+rs out of files (spaces and single quotes)\n", " " x 7,"you \e[31mmus
+t\e[m have read\e[1;30m/\e[mwrite permission to directory!\n", " " x 
+7, "eg. $0 \e[1;34m~\e[m\e[1;30m/\e[mmp3s\e[1;30m/\e[m\n";


}



sub simple_rename {


my($cwd) = $_[0];
opendir(DIR, "$cwd") or die "can't open $cwd: $! !\n";

my @mp3s = grep { /^[^\.].*\.mp3$/ && -f "$cwd/$_" } readdir(DIR);clos
+edir(DIR);

opendir(DIR, "$cwd") or die "can't open $cwd: $! !\n";
my @skipped = grep { /^[\.].*\.mp3$/ && -f "$cwd/$_" } readdir(DIR);cl
+osedir(DIR);
chdir "$cwd" or die "couldn't cd to $cwd: $!\n";

foreach (@mp3s) {

    if ((/ /) or (/'/) or (/\\/)){

    my $old = $_;
    s/ /_/g;
    s/'//g;
    s/\\//g;
    rename $old,$_;
    print "$cwd: $old \e[31m->\e[m $_ \n";
}
}

foreach (@skipped){ 

    print "skipped [\e[1;34m$_\e[m] due to leading dot. (\".\")\n";
}


}


sub wanted {
      return unless -d $_; 
      my $bwd = `pwd`; chomp($bwd);
      my $cwd = $_;
      opendir(DIR, "$cwd") or die "can't open $cwd: $! !\n";
      my @mp3s = grep { /^[^\.].*\.mp3$/ && -f "$cwd/$_" } readdir(DIR
+);closedir(DIR);
    opendir(DIR, "$cwd") or die "can't open $cwd: $! !\n";
    my @skipped = grep { /^[\.].*\.mp3$/ && -f "$cwd/$_" } readdir(DIR
+);closedir(DIR);
    chdir "$cwd" or die "couldn't cd to $cwd: $!\n";
    print "$bl\[$red", "recurse$bl($red$bwd$bl/$red$cwd$bl/$bl)]$cl\n"
+;

    foreach (@mp3s) {

            if ((/ /) or (/'/) or (/\\/)){

            my $old = $_;
            s/ /_/g;
            s/'//g;
            s/\\//g;
               rename $old,$_;
        print "$cwd\e[1m:\e[m $old \e[31m->\e[m $_ \n";
        }
    }
     chdir "$bwd" or print "couldn't chdir to $bwd: $!\n";
}