You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
431 B
11 lines
431 B
#!/usr/bin/env perl |
|
# taken from https://github.com/iraquitan/custom-scripts/blob/master/simpler.sh |
|
use open ':std', ':encoding(UTF-8)'; |
|
my $block = shift || (chr(0x2588) x 3); |
|
for (["", 0], ["1;", 0], ["", 8], ["1;", 8]) { |
|
my ($bold, $offset) = @$_; |
|
my @range = map $offset + $_, 0..7; |
|
printf "%s %-6s ", $bold ? "bold" : "norm", "$range[0]-$range[-1]"; |
|
print map("\e[${bold}38;5;${_}m$block", @range), "\e[0m"; |
|
print "\n" |
|
}
|
|
|