scripts

misc scripts and tools
git clone git://git.2f30.org/scripts.git
Log | Files | Refs

commit 04f6dd31232381ee26407b9b03e753a7e2168888
parent 5bbfeba084d6a138bed55ff3f9cf994b10642f21
Author: sin <sin@2f30.org>
Date:   Thu Jun 27 17:55:37 +0100

Add filenametag.pl

Diffstat:
filenametag.pl | 32++++++++++++++++++++++++++++++++
1 file changed, 32 insertions(+), 0 deletions(-)
diff --git a/filenametag.pl b/filenametag.pl @@ -0,0 +1,32 @@ +#!/usr/bin/perl +use File::Basename; +use File::Copy; +use MP3::Tag; + +print "Filename Change according to TAG in mp3s <dsp@2f30.org>\n"; +$num_args = $#ARGV + 1; +if ($num_args != 1) { + print "\nUsage: filenametag.pl dir\n"; + die; +} + +$dir = $ARGV[0]; +print ":Opening Dir:\n"; +opendir(DIR, $dir) or die "can't opendir $dir: $!\n"; +while (@files = grep { /.mp3/ } readdir(DIR)){ + foreach $file (@files){ + $fname = $dir.'/'.$file; + my $mp3 = MP3::Tag->new($fname); + ($title, $artist, $no, $album, $year) = $mp3->autoinfo(); + print "$title"; + if($file =~ m/$title/i){ + print "\nall ok\n"; + } + else{ + $newfname = $dir.'/'.$title.'.mp3'; + print "\ni will rename to $newfname!\n"; + move($fname,$newfname); + } + } +} +closedir(DIR);