了解 Musicbrainz cpan 模块的输出类型？

Question

我使用 Musicbrainz cpan 模块来查找专辑，但在尝试破译我收到的输出时遇到了一些问题。我使用 data::Dumper 来查看它，它似乎是某种哈希或数组，但是当我尝试检查类型时遇到了问题。

my $ws = WebService::MusicBrainz::Release->new();

my $response = $ws->search({ TITLE => 'ok computer' });


if (ref($response) eq "REF" || ref($response) eq "SCALAR" || ref($response) eq "ARRAY" || ref($response) eq "HASH" || ref($response) eq "CODE" || ref($response) eq "GLOBE")

 {
 print "\n What sort of thing is it? \n";
 }

谢谢

Answer 1

它是一个 WebService::MusicBrainz::Response 对象。

use WebService::MusicBrainz::Release;

my $ws = WebService::MusicBrainz::Release->new();
my $response = $ws->search({ TITLE => 'ok computer' });
my $release = $response->release(); # grab first one in the list
print $release->title(), " (", $release->type(), ") - ", $release->artist()->name(), "\n";

Answer 2

就像已经说过的，它是一个 WebService::MusicBrainz::Response 对象。
您可以通过访问 release_list() 来检索多个结果，它提供 WebService::MusicBrainz::Response::Release 对象。

use WebService::MusicBrainz::Release;

my $ws = WebService::MusicBrainz::Release->new();
my $response = $ws->search({ TITLE => 'ok computer' });

my @releaselist = $response->release_list();
foreach my $release ( @releaselist ) {
  print $release->title(), " - ", $release->artist()->name(), "\n";
}

---

但是，该 perl 模块有些缺乏维护，并且它所使用的 XML Web 服务版本 1 已被弃用。

您最好使用 Web 服务的版本 2。
python-musicbrainzngs 提供了一个使用新（下一代方案）Web 服务的 python 模块。