Perl Golf - Renaming MP3s

This little Golf Challenge made it's way through the Harrisburg Perl Mongers mailing list today:

You have a bunch of MP3s in directory with sub-directories, and each have their track number prefixed as a two digit number followed by a dash and then the song title. So for example you'd have a directory music which had directories like The Who, Eminem, etc. and the files would look like 03-1921.mp3, 03-8 Mile.mp3.

If you wanted to find all the MP3s and remove the track number and dash, how would you do it in the most compact form?

Using OS tools like find and mv are okay, but extra bonus points to those who implement the shortest all Perl solution.

Comment on Perl Golf - Renaming MP3s Select or Download Code

Replies are listed 'Best First'.
Re: Perl Golf - Renaming MP3s by nothingmuch (Priest) on Nov 18, 2002 at 22:33 UTC
`use File::Find;find sub{/\.mp3$/&&rename$_,substr$_,3},".";` or `use File::Find;find{/\.mp3$/&&rename$_,substr$_,3}".";` if find was declared with proto (&$); I tried replacing `substr$_,3` with `s/..-/&&$_`, but it modified the first $_ (weird? isn't the comma operator supposed to evalute left, and then right?) bonus - it passes strict. Update: Formatting was icky, so I added line breaks. -nuffin zz zZ Z Z #!perl	[reply] [d/l] [select]
Re^2: Perl Golf - Renaming MP3s by Aristotle (Chancellor) on Nov 20, 2002 at 15:44 UTC
isn't the comma operator supposed to evalute left, and then right? But there's no comma operator here - that's a list. A comma is a list element separator in list context and a comma operator in scalar context. There's no such thing as a list in scalar context and no such thing as a comma op in list context. Makeshifts last the longest.	[reply]
Re: Re: Perl Golf - Renaming MP3s by Mr. Muskrat (Canon) on Nov 18, 2002 at 22:47 UTC
And if the track number is more than 2 digits? Update: Oops! It seems that I didn't read the challenge carefully. buzzcutbudda specified that the track number would only be two digits. Thanks for the heads up, nothingmuch.	[reply]
Re: Re: Re: Perl Golf - Renaming MP3s by nothingmuch (Priest) on Nov 18, 2002 at 22:51 UTC
I think I would go for `()=/\d+-(.*)/g` -nuffin zz zZ Z Z #!perl	[reply] [d/l]
Re: Re: Re: Perl Golf - Renaming MP3s by theorbtwo (Prior) on Nov 19, 2002 at 01:58 UTC
The id3v1 spec only has space for a two-digit track number. (IIRC, theoreticaly, you could put any two characters in, so you could count in hex, base-36, or whatever if you need more space, up to a theoretical max of 254**2, with any two chars, other then \0, which probably has special meaning. I don't remember id3 that well off the top of my head.) Warning: Unless otherwise stated, code is untested. Do not use without understanding. Code is posted in the hopes it is useful, but without warranty. All copyrights are relinquished into the public domain unless otherwise stated. I am not an angel. I am capable of error, and err on a fairly regular basis. If I made a mistake, please let me know (such as by replying to this node).	[reply]
Re: Re: Re: Perl Golf - Renaming MP3s by ichimunki (Priest) on Nov 19, 2002 at 02:31 UTC
I believe it's the case that the CD spec itself limits a disc to 99 tracks anyway.	[reply]


Pathologically Eclectic Rubbish Lister
	PerlMonks