#!/usr/local/bin/perl -w

open(FILE, "<", "test.txt") or die("Can't open file");
my @lines = <FILE>;

my @nrgs = (2.4, 3.77, 4.5, 5.5);

my %nrgsidx = (
   "2.4" => 0,
   "3.8" => 1,
   "4.5" => 2,
   "5.5" => 3 
);

my @modes = ("e^+e^-","\\phi", "\\eta_c", "J/\\psi(ee)", "J/\\psi(\\mu\\mu)",  "D^0", "D^\\pm", "D_s","\\Lambda", "\\Lambda_c", "DPM");

my %modesidx = (
  "000" => 1,
  "400" => 8,
  "300" => 0,
  "200" => 3,
  "201" => 4,
  "221" => 2,
  "100" => 5,
  "120" => 6,
  "140" => 7,
  "420" => 9,
  "900" => 10
);

my @effi;
my $off=0;


foreach my $line (@lines)
{
	if ($line =~ m/^(\d{3})\s*&\s*(\d\.\d).+&\s*(.+)\s\\\\/)
	{
		my $idx = $modesidx{$1}*4+$nrgsidx{$2};
		$effi[$idx+$off] = $3;

		if ( ($1 eq "420") && ($2 eq "5.5") ) { $off=50;}
	}
}

open (TEX, '>test.tex');

printf ("%-10s     %6.2f  %6.2f  %6.2f %6.2f\n","",2.4,3.77,4.5,5.5);
printf ("---------------------------------------------\n");

printf TEX ("%-10s    & %6.2f & %6.2f & %6.2f & %6.2f\\\\\\hline\n","",2.4,3.77,4.5,5.5); 

for (my $i=0; $i<11; $i++)
{
    printf("%-10s | ",$modes[$i]);
    printf TEX ("\$%-10s\$ ",$modes[$i]);
	for (my $j=0; $j<4; $j++)
	{
 		my $val = $effi[$j+$i*4];
		if (defined($val)) 
		{
			printf ("  %6.2f", $val);
			printf TEX (" & %6.2f", $val);
		}
		else 
		{
			print "    -   ";
			print  TEX " &    -  ";
		}
	}
    print "\n";
    print TEX "\\\\\n";
}
print "\n";
print TEX "\n";

printf ("%-10s     %6.2f  %6.2f  %6.2f %6.2f\n","",2.4,3.77,4.5,5.5);
printf ("---------------------------------------------\n");

printf TEX ("%-10s    & %6.2f & %6.2f & %6.2f & %6.2f\\\\\\hline\n","",2.4,3.77,4.5,5.5); 
for (my $i=0; $i<11; $i++)
{
    printf("%-10s | ",$modes[$i]);
	printf TEX ("\$%-10s\$ ",$modes[$i]);
	for (my $j=0; $j<4; $j++)
	{
		my $val = $effi[$j+$i*4+50];
		if (defined($val)) 
		{
			printf ("  %6.2f", $val);
			printf TEX (" & %6.2f", $val);
		}
		else 
		{
			print "    -   ";
			print  TEX " &    -  ";
		}
	}
    print "\n";
    print TEX "\\\\\n";
}

print "\n";