runSelection/selection_ana450/dbi_select_run_ana450_2024p008_DSTs_available.pl

0001 #!/usr/bin/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 DISTINCT runnumber FROM datasets WHERE dataset LIKE 'ana450_2024p009%' AND dsttype LIKE 'DST_CALO_run2pp' ORDER BY runnumber;");
0010 $gettab->execute();
0011 # print the first entries:
0012 my @row;
0013 while (@row = $gettab->fetchrow_array) {
0014     print join(", ", @row), "\n";
0015 }
0016
0017 $dbh->disconnect;