;
print "found $n records\n";
for (my $i = 1; $i <= $n; $i++) {
my $rec = $rs->record($i)
or die $rs->errmsg();
my $m = MARC::Record->new_from_usmarc($rec->rawdata());
print $m->subfield('650',"a"), "\n";
#print $rec-&
;record(1)
or die $rs->errmsg();
my $m = MARC::Record->new_from_usmarc($rec->rawdata());
print "$issn\t";
print $m->subfield('650',"a"), "\n";
Any idea? Thanks.
--sharif
Sharif Islam wrote:
I have this simple scripts that looks up ISSN
er.
However, that server does not time out. Any idea?
--sharif
--
Sharif Islam Research Programmer
Library Systems Office University of Illinois Urbana-Champaign
http://www.library.uiuc.edu phone: (217) 244-4688
I was able to get some detail error information:
ZOOM error 10004 "Connection lost" (addinfo:
"z3950.loc.gov:7090/voyager") from diag-set 'ZOOM'
Sharif Islam wrote:
I am a newbie when it comes to querying the Z39.50 server using perl
module. I would appreciat
=>">myxmlfile.xml",format=>"xml"});
$x->output({file=>">record1.xml",format=>"xml",records=>[1]});
$x->output({file=>">record2.xml",format=>"xml",records=>[2]});
.
...
--shar
-DublinCore-0.02/lib/MARC/Crosswalk/DublinCore.pm)
--sharif
--
Sharif Islam Research Programmer
Library IT University of Illinois Urbana-Champaign
http://www.library.illinois.edu phone: (217) 244-7429
Galen Charlton wrote:
To get a MARC record, assuming you want the ISO2709 serialization, the
program could continue as follows:
my $marcxml = $xslt->toString;
use MARC::Record;
use MARC::File::XML;
my $marcrec = MARC::Record->new_from_xml($marcxml, 'UTF-8');
print $marcrec->as_usmarc();
Than
