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; $r0 = shift;
$row = disp_0($r0); $row = disp_0($r0);
if($r0 % 2 == 1){
# Trim the start of the first line # Trim the start of the first line
$row =~ s/$TRAIL_1/ /; $row =~ s/$TRAIL_1/ /;
if($r0 % 2 == 1){
# Trim the end of the first line # Trim the end of the first line
$row =~ s/\n/$TRAIL_3\n/ $row =~ s/\n/$TRAIL_3\n/
}else{ }else{
@ -277,8 +277,11 @@ sub disp_board(){
$b .= disp_row($i); $b .= disp_row($i);
} }
$b =~ s/$TRAIL_1$TRAIL_3\n/\n/m; $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($){ sub cell_index($){