example5.pl

#!/usr/bin/perl -w
use Net::Z3950;
$conn = new Net::Z3950::Connection('localhost', 9999)
    or die "can't connect: $!";
$rs = $conn->search(-ccl2rpn => 'ti=survey and (utah or colorado)')
    or die $conn->errmsg();
print "found ", $rs->size(), " records:\n";
exit if $rs->size() == 0;
my $rec = $rs->record(1)
    or die $rs->errmsg();
print $rec->render();
  

As example 4, but using an equivalent CCL search.
(This is compiled into RPN before the server sees it.)

[prev] [next]