samples/zoom/trivial-async.pl

   1 use ZOOM;
   2 @servers = ('lx2.loc.gov:210/LCDB',
   3             'z3950.indexdata.com:210/gils',
   4             'agricola.nal.usda.gov:7190/Voyager');
   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");
  11 }
  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()
  19             if $size > 0;
  20     }
  21 }