iTunesの重複曲を削除する

家のPCのWindowsを入れなおすついでに家のiTunesとmacbookのiTunesの中身を同期しようと思い、何も考えずにiTunesのホームネットワークに追加して曲をコピペしたら大量に重複曲ができていっこいっこ手で削除するなんてめんどくさくてできない場合の話。

iTunesには「重複する項目を表示」って機能はあるのに重複してる曲を削除する、っていう便利機能は無い。

ただし、同じアーティスト名、同じアルバム名（つまり同じディレクトリ）の同名曲は、ファイル名の末尾に数字をつけてincrementしていく、ってルールでコピーしてきたファイルを置くようだ。

そこで、perlで重複曲を削除してみる

#!/usr/bin/env perl use strict; use warnings; use File::Find; use Path::Class; use Term::Prompt; my $dir = $ARGV[0] or die "removes \"file 1.mp3\" if \"file.mp3\" exists\nusage: $0 path/to/dir\n"; exit unless prompt('y', "this removes files under $dir, really proceed?", '', 'N'); find( sub { my $file = $File::Find::name; return unless -f $file; my $file_size = (stat $file)[7]; # print "checking: $file($file_size)\n"; if ( $file =~ m! [1-9]\.mp3$! ) { (my $original_file = $file) =~ s! [1-9]\.mp3$!.mp3!; my $original_file_size = (stat $original_file)[7]; if ( (-f $original_file) && ($file_size == $original_file_size) ) { print "removing: $file\n"; file( $file )->remove; } } }, ($dir) );

% perl remove-duplicate.pl /Users/mash/Music/iTunes/iTunes\ Media/Music/<br />

って実行すると重複してるっぽい曲だけ消してくれる

その後、実体が無いけど曲のリストがあるiTunesを開き、上から順に →カーソルキーを押しっぱなしにしたりすると

のようにびっくりマークがつくので、表示項目に「追加日」を追加して、びっくりマークを目印に、複数選択しながら消していくとまあ許容できるめんどくささになった

Term::Prompt

がなんか楽しくて意味もなく “really?” とか聞くちょっとしたスクリプトを書く今日このごろ

PS. iTunes Music Library.xml をいっしょに編集したりすればもっと簡単なのかもしれない

maaash.jp

what I create

iTunesの重複曲を削除する – perl

Comments