gashapwn/lpst
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lpst.pl - added code to trim some more characters

Browse Source
This commit is contained in:
gashapwn 2021-04-03 22:49:42 +00:00
parent 3deb715ddb
commit aae5e28dfd
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lpst.pl
View File

@ -257,9 +257,9 @@ sub disp_row($){
$r0 = shift;
$row = disp_0($r0);
if($r0 % 2 == 1){
# Trim the start of the first line
$row =~ s/$TRAIL_1/ /;
if($r0 % 2 == 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;
printf("%s", $b);
for my $i (1..11-1){
substr($b, 2+6*$i, 2) = " ";
}
printf("%s", $b);
}
sub cell_index($){