Commits

Anonymous committed ab86e3d

Add the log file functionality.

Comments (0)

Files changed (1)

nurikabe-solver/Games-Nurikabe-Solver/examples/gui.pl

 
     my $moves = $self->{board}->_solve_using({ name => $move, });
 
+    my $log_fn = $ENV{NURIKABE_LOG};
+    if (defined($log_fn) && $moves)
+    {
+        open my $out_fh, '>>', $log_fn
+            or die "Cannot open '$log_fn' (\$NURIKABE_LOG environment var. - $!";
+        print {$out_fh} "$move\n";
+
+        close($out_fh);
+    }
     $self->OnPaint();
 
     return;