Returns a list of artists with only one song from a given iTunes library or playlist file

itunes-artists-with-one-song.pl

#!/usr/bin/env perl

use v5.10;
use Mac::iTunes::Library;
use Mac::iTunes::Library::XML;
use Mac::iTunes::Library::Playlist;

my $library = Mac::iTunes::Library::XML->parse(@ARGV[0]);
my %results;
my %items = $library->items();

while (($artist, $artistSongs) = each %items) {
	if ((keys %$artistSongs) == 1) {
		while (($songName, $artistSongItems) = each %{$artistSongs}) {
			foreach my $item (@$artistSongItems) {
				$results{$artist} = $item->name();
			}
		}
	}
}

foreach my $key (sort { lc($a) cmp lc($b) } keys %results) {
	say "$key\t$results{$key}";
}