#!/usr/bin/perl

#binmode(STDOUT, ":utf8");
use MARC::NDL_Search::OPAC;
#use strict;

my $NDL_Search = new MARC::NDL_Search::OPAC;

# 検索式のセット。より詳しい指定も可能です。
my %query = (
    'any'      => '吾輩は猫である',
    'creator'  => '夏目漱石',
);
$NDL_Search->set_query(\%query);



# このような指定も可能です
# $NDL_Search->set_query({'any' => '電気自動車'});

$NDL_Search->search;
my $records = $NDL_Search->records;
exit if $NDL_Search->error;
if (!$NDL_Search->hits == 0) {
    foreach my $biblio (@{$records}) {
         disp_data($biblio);
    }

}

# ISBN検索の場合は次のようにします
#my $biblio = $NDL_Search->isbn_search('9784478000564');
#my $biblio = $NDL_Search->records;
#exit if $NDL_Search->error;
#disp_data($biblio) if $NDL_Search->hits != 0;

sub disp_data {
    my $biblio = shift;

    print "title: ",       $biblio->{"title"}, "\n";
    print "title_yomi: ",  $biblio->{"title_yomi"}, "\n";
    print "series: ",      $biblio->{"series"}, "\n";
    print "series_yomi: ", $biblio->{"series_yomi"}, "\n";
    print "volume: ",      $biblio->{"volume"}, "\n";

    print "author: ",      join q{, }, @{$biblio->{"author"}}, "\n";
    print "author_yomi: ", join q{, }, @{$biblio->{"author_yomi"}}, "\n";
    print "publisher: ",   join q{, }, @{$biblio->{"publisher"}}, "\n";
    print "category: ",    $biblio->{"category"}, "\n";
    print "note: ",        join q{, }, @{$biblio->{"note"}}, "\n";
    print "guid: ",        $biblio->{"guid"}, "\n";
    print "pubDate: ",     $biblio->{"pubDate"}, "\n";
    print "description: ", $biblio->{"description"}, "\n";
    print "ISBN: ",        $biblio->{"ISBN"}, "\n";
    print "NDLC: ",        $biblio->{"NDLC"}, "\n";
    print "NDC9: ",        $biblio->{"NDC9"}, "\n";
    print "subject: ",     $biblio->{"subject"}, "\n";
    print "\n\n";

}