bin/irspy-stats.pl

   1 #!/usr/bin/perl -w
   2
   3 #
   4 #       perl -I ../lib irspy-stats.pl localhost:8018/IR-Explain---1 "net.host=*indexdata*"
   5
   6 use strict;
   7 use warnings;
   8 use ZOOM::IRSpy;
   9
  10 if (@ARGV < 2) {
  11     print STDERR "Usage: $0 [CQL-query]\n";
  12     exit 1;
  13 }
  14
  15 my($dbname, $query) = @ARGV;
  16 my $stats = new ZOOM::IRSpy::Stats($dbname, $query);
  17 $stats->print();