#!/usr/bin/perl
#Jess's adaptation

# Program to run reader on many files

$dirname = "/data/disk5/amanda/2003/mu-daq/6929/";
opendir(DATADIR,$dirname);
@files = readdir(DATADIR);

foreach $curfile (@files)                
#  loops through each file, and runs reader on it
{

    if($curfile=~ /ab_2003_052_6929_....data.mu.min_bias.gz/)
    
	{
    print("$curfile. \n");
    $outfile = $curfile;

    $outfile =~ s/gz/f2k/ ;

    $cmd = "~/reader/bin/reader -f ~/crosstalk/2003/$outfile -i $dirname$curfile -r 2002 -p";
    print "$cmd\n";
}
   `$cmd`;
    
    }

print("Done. \n");