example2.pl

#!/usr/bin/perl -w
use Net::Z3950;
$conn = new Net::Z3950::Connection('localhost', 9998);
$conn->option(preferredRecordSyntax => Net::Z3950::RecordSyntax::USMARC);
$rs = $conn->search('wood');
print "found ", $rs->size(), " records:\n";
my $rec = $rs->record(1);
print $rec->render();
  

As example 1, but requesting USMARC records.

[output]

[prev] [next]