Add column with foreground color

This commit is contained in:
Peter J. Holzer 2021-03-18 16:58:36 +01:00
parent 4563b0a53a
commit 3f726736ca
1 changed files with 1 additions and 1 deletions

View File

@ -1,7 +1,7 @@
#!/usr/bin/perl
for my $i (0 .. 255) {
print fg(0), bg(15), sprintf("%3d", $i), " : ", bg($i), "x" x 10, rst(), "\n";
print fg(0), bg(15), sprintf("%3d", $i), " : ", bg($i), "x" x 10, rst(), " ", fg($i), "x" x 10, rst(), "\n";
}