blob: a609fee36bf0a568623b2441c60d1393f943cae0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
#!/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"
}
|
