Commits

shl...@b384bcd7-cfd4-0310-aca0-d78b80f7b91b  committed ab86e3d

Add the log file functionality.

  • Participants
  • Parent commits 8833d5d

Comments (0)

Files changed (1)

File 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;