iTunesライブラリファイルを読み込んで再生回数が0回の曲数をカウントする

iTunesのライブラリファイル（iTunes Library.xml）を読み込んで、再生回数が0回の曲数をカウントする。

count.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Mac::iTunes::Library;
use Mac::iTunes::Library::XML;

my $library = Mac::iTunes::Library::XML->parse( 'iTunes Library.xml' );

my $count=0;
my %items = $library->items();
while (my ($artist, $artistSongs) = each %items) {
    while (my ($songName, $artistSongItems) = each %$artistSongs) {
        foreach my $song (@$artistSongItems) {
            if (!defined($song->playCount())) {
                $count++;
            }
        }
    }
}

printf("%5d / %5d\n", $count, $library->num());