samples/zoom/trivial-async.pl

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