9 my $mpd = Audio::MPD->new;
11 my $pl = $mpd->playlist;
13 my @items = $pl->as_items;
17 for my $item (@items) {
18 my ($name,$type) = $item->file =~ m/(.+)\.([^\.]+)/;
19 if (exists $files{$name}{$type}) {
20 $items_to_delete{$item->id} = 1;
23 $files{$name}{$type} = $item->id;
24 if (exists $files{$name}{flac}) {
25 $items_to_delete{$_} = 1 foreach values %{$files{$name}};
26 delete $items_to_delete{$files{$name}{flac}}
27 } elsif (exists $files{$name}{ogg}) {
28 $items_to_delete{$_} = 1 foreach values %{$files{$name}};
29 delete $items_to_delete{$files{$name}{ogg}}
33 $pl->deleteid(keys %items_to_delete);