#!/usr/bin/perl
#Jess's program to run deff on many files

$dirname = "/home/aheffwong/crosstalk/";
opendir(DATADIR,$dirname);
@files = readdir(DATADIR);

@number=(5,6,7,8,9,10);

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

    if($curfile=~ /ab_2003_0.._...._....data.mu.min_bias.f2k.out/){
    
	foreach $string (@number){


	$cmd = "/home/hodges/bin/deff_3.2-011009";
	
	
	    foreach $flag (1..19) {
		if ($flag != $string) {
		    $cmd .= " -S$flag";
		}
		}
        	    
	    $outfile = $curfile;
	    $outfile =~ s/f2k.out/string$string.out.f2k/ ;

    $cmd .= " $dirname$curfile > /home/hodges/crosstalk/2003/$outfile";

	print $cmd;
	print "\n\n";
	`$cmd`;
	}
	}
    
}