2 @servers = ('z3950.loc.gov:7090/Voyager',
3 'bagel.indexdata.com:210/gils',
4 'agricola.nal.usda.gov:71Voyager');
5 for ($i = 0; $i < @servers; $i++) {
6 $z[$i] = new ZOOM::Connection($servers[$i], 0,
7 async => 1, # asynchronous mode
8 count => 1, # piggyback retrieval count
9 preferredRecordSyntax => "usmarc");
10 $r[$i] = $z[$i]->search_pqf("mineral");
12 while (($i = ZOOM::event(\@z)) != 0) {
13 $ev = $z[$i-1]->last_event();
14 print("connection ", $i-1, ": ", ZOOM::event_str($ev), "\n");
15 if ($ev == ZOOM::Event::ZEND) {
16 $size = $r[$i-1]->size();
17 print "connection ", $i-1, ": $size hits\n";
18 print $r[$i-1]->record(0)->render()