runSelection/selection_ana509/dbi_select_run_500k.pl

0001 #!/usr/bin/env perl
0002
0003 use strict;
0004 use DBI; # Database interface
0005
0006 # connect to the database FileCatalog
0007 my $dbh = DBI->connect("dbi:ODBC:FileCatalog","") || die $DBI::error;
0008
0009 my $gettab = $dbh->prepare("SELECT runnumber FROM datasets WHERE dsttype ='DST_CALOFITTING' AND dataset = 'run2pp' AND tag='ana509_2024p022_v001' GROUP BY runnumber HAVING SUM(events) >= 500000 ORDER BY runnumber");
0010 $gettab->execute();
0011 my @row;
0012 while (@row = $gettab->fetchrow_array) {
0013     print join(", ", @row), "\n";
0014 }
0015
0016 $dbh->disconnect;