Home: Need a Custom or Prewritten Perl Program?: I need a program that...:
find dupes and move them to a dupe folder/directory

New User

Mar 6, 2007, 6:20 AM

Views: 2196
find dupes and move them to a dupe folder/directory

In the last couple of years, I've made a project of ripping all of my cd collection to hard drive, so that they could be consumed by iTunes. In fact, I used iTunes to do it.

So, here's the problem, being disorganized and forgetful, I've got a number of dupes. The sheer volume of my cd's precludes doing a merge manually.

The iTunes directory structure is:


iTunes looks up the album on CDDB when you load it. Sometimes the entry in CDDB is not quite correct, so you might have a folder for

Allman Brothers Band
The Allman Brothers Band

I don't really think that's THAT much of a problem. Usually an album is not in both places.

Also, for example, I may have 8 different versions of "Let it Rain" by Clapton, but they're not really dupes; they're just different versions of the same song.

Plus, I'll have a version of "After Midnight" by both him and the author, JJ Cale.

According to iTunes, I have thousands of dupes. Some are real dupes and as I mentioned, some are not.

I'm thinking I'm going to need copy each mp3 to a flat folder structure, make the file name something like


Ok... the dumbass question:

Anyone have/know of some code that does this?

Am I going to be writing this from scratch?


This is my first foray into a Perl forum, so if I've violated some rule, please be gentle. I cry easily. Smile

Thanks in advance,