#!/usr/bin/perl
#
# Convert fudge factors in existing programs file to new fudge file
open(IN, "programs") || die("Cannot read programs: $!\n");
open(OUT, ">fudge") || die("Cannot write fudge: $!\n");
print(OUT "# Fudge factors for specific programs.\n#\n");
while(<IN>) {
    if (/^#/) { next; }
    chop;
    ($prog,$genre,$fudge)= split(/\t+/);
    if (defined($fudge)) {
	print(OUT "$prog\t\t$fudge\n");
    }
}
close(IN); close(OUT);

