von/vscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

initial commit

Browse source
This commit is contained in:
Von Random 2014-12-07 00:58:53 +03:00
commit 0a862c499d
6 changed files with 151 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
simpler.pl Executable file
View file

@ -0,0 +1,10 @@
#!/usr/bin/env perl
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"
}