runSelection/selection_ana509/dbi_select_run_golden.pl

0001 #!/usr/bin/env perl
0002
0003 use strict;
0004 use DBI; # Database interface
0005
0006 # Read file
0007 my $filename = 'RunList_500k.txt';
0008 open(my $fh,'<',$filename) or die "Could not open file '$filename' $!";
0009
0010 # connect to the database Production_read
0011 my $dbh = DBI->connect("dbi:ODBC:Production_read","") || die $DBI::error;
0012
0013 while (my $line = <$fh>) {
0014     chomp($line);
0015     my $gettab = $dbh->prepare("SELECT runnumber FROM goodruns WHERE runnumber=$line AND CAST(emcal_auto AS TEXT) LIKE '%GOLDEN%';");
0016     $gettab->execute();
0017 # print the first entries:
0018     my @row;
0019     while (@row = $gettab->fetchrow_array) {
0020         print join(" ", @row), "\n";
0021     }
0022 }
0023
0024 close($fh); # Close the file handle.
0025
0026 $dbh->disconnect;