Hi David,
I did use Zeta perl some time ago, but when it stopped being supported
switched over to using Net::Z3950 -- it has a much cleaner object-oriented
API and is under active development. The following script will do what you
want using the latest CPAN release of Net::Z3950 (note to install
Net::Z3950 you need a recent version of yaz installed
<http://www.indexdata.com/yaz/>.
#!/home/cpan/bin/perl
use strict;
use Net::Z3950;
my $issn = "0098-7484";
my $query = '@attrset bib1 @attr 1=8 '.$issn;
my $target = "pac.csusm.edu";
my $port = 210;
my $database = "Innopac";
my $format = "b";
my $syntax = Net::Z3950::RecordSyntax::OPAC;
my $zc = Net::Z3950::Connection->new($target,$port,databaseName=>$database)
or die("Could not connect to $target:$port");
my $rs = $zc->search(-prefix => $query) or die("Could not retrieve
resultset");
$rs->option(preferredRecordSyntax => $syntax);
$rs->option(elementSetName => $format);
if ($rs->size() == 0) {
warn("no results\n");
exit 0;
}
for (my $n = 1; $n <= $rs->size(); $n++) {
my $rec = $rs->record($n);
print "$n\n";
print $rec->render();
}
Hope this might be of some use to you (if you get Net::Z3950 installed),
Ben
On Mon, 26 April, 2004 17:36, David Walker wrote:
> Hi All,
>
> I'm developing a script for an application that uses Zeta Perl for
> Z39.50 connections. I'm hoping those of you familiar with Zeta Perl can
> help me with this.
>
> When I specify the record syntax as MARC or SUTRS everything works fine.
> But when I specify the record syntax as "OPAC," using the OID
> 1.2.840.10003.5.102, I get nothing. Actually, I get a result set from
> the Z39.50 target, but when I try to print the results, nothing is
> outputted to the screen.
>
> I know the target is capable of returning records in OPAC format --
> which I take is some type of MARC XML? -- since I can successfully query
> and display the results using other Z39.50 applications.
>
> I have a feeling the problem lies more with my limited knowledge of Perl
> rather than something specific with the Zeta module.
>
> Here's my code:
>
> ================
>
> use Zeta;
>
> &lookup;
>
> sub lookup {
>
> my $issn = "0098-7484";
>
> my $target = "pac.csusm.edu";
> my $port = 210;
> my $database = "Innopac";
>
> my $resultset = "zeta";
> my $query = "1=8 " . $issn;
> my $attrid = "BIB1";
> my $start = 1;
> my $format = "b";
> my $howmany = 1;
> my $syntax = "1.2.840.10003.5.102"; #OPAC
>
> my @holdings = ();
>
> #establish a connection with a Z39.50 Target over TCP/IP
> $zc = Zeta::Connection::New ($target, $port);
>
> if (! $zc) {
> $strError ="couldn't connect to target\n";
> } else {
>
> # initialize the association
> ($status, $reason, $result, $newrefid) = $zc->Init
> ($user, $password, $refid);
>
> if (! $status) {
> $strError = "couldn't initialize the
> association";
> } elsif (! $result) {
> $strError = "target rejected request\n";
>
> } else {
>
> #try to create a result set
> ($status, $reason, $found, $info)
> = $zc->Search ($database, $resultset,
> $query, $attrsetid);
>
> if (! $status) {
> $strError = "couldn't create result
> set\n";
> } elsif (! $found ) {
>
> #got no results so it's not here
> $strError = "no results";
>
> } else {
>
> # try to grab records from result set
> ($status, $reason, $returned,
> @records)
> = $zc->Present ($resultset,
> $howmany, $start, $format, $syntax);
>
> if (! $status) {
> $strError = "couldn't process
> result set\n";
> } else {
>
> #close the association
> ($status, $reason) = $zc->Close
> ($close);
>
> print "$returned\n";
>
> #cycle thru results, printing to
> screen
>
> foreach $data (@records) {
>
> print $data;
> }
>
> }
> }
> }
> }
> print "$strError\n";
> }1;
>
> ================
>
> This prints to the screen:
>
> 1
> 1.2.840.10003.5.102&
>
> ============================
> David Walker
> Web Developer
> Library
> California State University, San Marcos
> ph: (760) 750-4379
> ============================
--
Ben Soares tel: +44 (0)131-651 1238
EDINA, Edinburgh University Data Library fax: +44 (0)131-650 3308
Main Library Building, George Square email: [EMAIL PROTECTED]
Edinburgh EH8 9LJ, Scotland, UK www: http://edina.ac.uk/
"Hmmm, that makes no sense to me...
But then you are very small, perhaps you're right." -- Treebeard
