diff --git a/lpst.pl b/lpst.pl index 9d77ffa..07f3e32 100644 --- a/lpst.pl +++ b/lpst.pl @@ -257,9 +257,9 @@ sub disp_row($){ $r0 = shift; $row = disp_0($r0); - # Trim the start of the first line - $row =~ s/$TRAIL_1/ /; if($r0 % 2 == 1){ + # Trim the start of the first line + $row =~ s/$TRAIL_1/ /; # Trim the end of the first line $row =~ s/\n/$TRAIL_3\n/ }else{ @@ -277,8 +277,11 @@ sub disp_board(){ $b .= disp_row($i); } $b =~ s/$TRAIL_1$TRAIL_3\n/\n/m; + + for my $i (1..11-1){ + substr($b, 2+6*$i, 2) = " "; + } printf("%s", $b); - } sub cell_index($){