File: logstats.pl

package info (click to toggle)
hoichess 0.22.0-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 1,032 kB
  • sloc: cpp: 17,028; makefile: 272; sh: 221; perl: 67
file content (22 lines) | stat: -rwxr-xr-x 419 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/usr/bin/perl
#
# Read HoiChess log file and print some statistics.

use warnings;
use strict;

my $sum_nodes = 0;
my $sum_nps = 0;
my $num_nps = 0;

while (<>) {
	if (/^Info: nodes_total=(\d+) /) {
		$sum_nodes += $1;
	} elsif (/^Info: searchtime=\d+.\d+ nps=(\d+)/) {
		$sum_nps += $1;
		$num_nps++;
	}
}

my $avg_nps = $num_nps != 0 ? int($sum_nps / $num_nps) : 0;
print("sum_nodes=$sum_nodes avg_nps=$avg_nps\n")