my $count;

foreach $filename(@ARGV) {
	$count = 0;
	open LOG, "$filename" or die "file open error : $filename\n";
		while($line = <LOG>) {
			if($line =~ /^\*Arcs/) {
				last;
			}
		}
		while($line = <LOG>) {
			my($from, $to, $num) = split / /, $line;
			chomp $num;
			#print "$from,$to,$num\n";
			$count += $num;
		}
	close LOG;
	
	$filename =~ s/(\d+)\.net/$1/g;
	print "$filename\t$count\n";
}