terminal color test

color.pl

#!/usr/bin/env perl
use strict;
use warnings;

my @block = (0, 30, 40, 90, 100);
my @index = 0 .. 7;

for my $num1 (map { my $b = $_; map { $b + $_ } @index; } @block) {
    for my $i (@index) {
        for my $b (@block) {
            printf '%3d,%3d:', $num1, $b + $i;
            print color($num1, $b + $i, 'hello');
            print '   ';
        }
        print "\n";
    }
}
help();

sub color {
    my ($num1, $num2, $str) = @_;
    return "\e[$num1;" . $num2 . "m" . $str . "\e[m";
}
sub help {
    print q{ex: echo "\\e[1;31mABCDEFG\\e[m"}, "\n";
}