extr_rate.pl

留一模型选择法leave-one-out model selection

#!/usr/bin/perl
#%out = {};
#%all_c = {};
#%all_g = {};
$status = 0;

while(<>)
{
	if(/^</)
	{
		($c, $g) = /<C=([^,]+),g=([^>]+)>/;
		last if (!defined($c) || !defined($g));
		next;
	}
	if(!/^Opt/ && /%/)
	{
		($accuracy) = /=\s+([^%]*)%/;
		$out{$c}{$g} = $accuracy;
		if($all_c{$c} == undef)
		{
			$all_c{$c}=1;
		}
		if($all_g{$g} == undef)
		{
			$all_g{$g}=1;
		}
	}
}

foreach $g (sort {$a <=> $b} keys %all_g)
{
	foreach $c (sort {$a <=> $b} keys %all_c)
	{
		print "$out{$c}{$g} ";
	}
	print "\n";
}