#!/usr/bin/perl -w

# This program will take .f2k files and convert them to
# .hbook files.  Make a list of files that you wish to 
# be converted, and name it, say, "list."  Save it in the
# same directory as this program.  To run this script,
# on the command line, type "fint_it_ahw061403.pl" and
# your list of files will be converted.  
#     -- Amanda Heffner-Wong  June 24, 2003


$list_file=shift @ARGV
    or die "Usage: $0 <file_list>\n";

# Open the list of files to be processed.
open(FILE_LIST,"< $list_file") 
  or die "Could not open $list_file for reading: $!\n";

while ($input_file = <FILE_LIST>)

  {
# We begin by producing the output file names and the run number.

    chomp($input_file);
    $out_file = $input_file;
#    $out_file =~ s/\/scratch2\/kael\/xt_2000\/string_(\d+)\///;
#    $out_file = "string_$1\/$out_file";
#    $out_file =~ s/\.f2k\.bz/\.hbook/;
#    $out_file =~ s/\/hodges/\/aheffwong/;
#    $out_file =~ s/\/crosstalk/\/hbook/;
    $out_file =~ s/\.f2k.out/\.hbook/;

    print($input_file);
    print "\n";
    print "$out_file\n";

    $fint = "bin/fint_030317 -X100 -Y -o $out_file $input_file";

    `$fint`;

}


close(FILE_LIST);