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

if (@ARGV<1) { die "Usage: $0 <file>\nOne data per row\n"; } 

open IN, "<".$ARGV[0] or die "Cannot open $ARGV[0]: $!";
while (<IN>){
	chomp;
	next if /^#/;
        $count++;
	$t[$count]=$_;
}
close IN;

for $i (1..@t){
	if (defined $t[2*$i]){
		$rate = $t[2*$i]/$t[$i];
		$sum += $rate;	
		$counter++;
	}		
}
$lrate = $sum / $counter;

print "The average learning rate is $lrate\n";


__END__