add mpd_remove_duplicates

[bin.git] / mpd_remove_duplicates

diff --git a/mpd_remove_duplicates b/mpd_remove_duplicates
new file mode 100755 (executable)
index 0000000..2574faf
--- /dev/null
+++ b/mpd_remove_duplicates
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+
+use Audio::MPD;
+
+my $mpd = Audio::MPD->new;
+
+my $pl = $mpd->playlist;
+
+my @items = $pl->as_items;
+
+my %items_to_delete;
+my %files;
+for my $item (@items) {
+    my ($name,$type) = $item->file =~ m/(.+)\.([^\.]+)/;
+    if (exists $files{$name}{$type}) {
+       $items_to_delete{$item->id} = 1;
+       next;
+    }
+    $files{$name}{$type} = $item->id;
+    if (exists $files{$name}{flac}) {
+       $items_to_delete{$_} = 1 foreach values %{$files{$name}};
+       delete $items_to_delete{$files{$name}{flac}}
+    } elsif (exists $files{$name}{ogg}) {
+       $items_to_delete{$_} = 1 foreach values %{$files{$name}};
+       delete $items_to_delete{$files{$name}{ogg}}
+    }
+}
+
+$pl->deleteid(keys %items_to_delete);