samples/zoom/zoomdump

   1 #!/usr/bin/perl -w
   2 use ZOOM;
   3 my $target = $ARGV[0];
   4 my $conn = new ZOOM::Connection($target);
   5 my $rs = $conn->search_pqf('@attr 1=_ALLRECORDS @attr 2=103 ""');
   6 my $n = $rs->size();
   7 print STDERR "$0: found $n records in '$target'\n";