\dev\null 14:42, 21 liepos 2016

2016-07-21T14:42:03Z

Naujas puslapis

[[Perl]] ASCII spalvos ir ju kodai
<syntaxhighlight lang="perl">
my @fgColors = (
'default', 'bold', 'black', 'red', 'blue', 'yellow', 'green',
'majenta', 'cyan', 'white', 'bold black', 'bold red', 'bold blue',
'bold yellow', 'bold green', 'bold majenta', 'bold cyan', 'bold white');

my @bgColors = (
'default', 'black', 'red', 'blue', 'yellow', 'green', 'majenta', 'cyan', 'white');

my %fg = (
'default' => "",
'bold' => "\e[1m",
'black' => "\e[30m",
'red' => "\e[31m",
'blue' => "\e[32m",
'yellow' => "\e[33m",
'green' => "\e[34m",
'majenta' => "\e[35m",
'cyan' => "\e[36m",
'white' => "\e[37m",
'bold black' => "\e[1;30m",
'bold red' => "\e[1;31m",
'bold blue' => "\e[1;32m",
'bold yellow' => "\e[1;33m",
'bold green' => "\e[1;34m",
'bold majenta' => "\e[1;35m",
'bold cyan' => "\e[1;36m",
'bold white' => "\e[1;37m",
);

my %bg = (
'default' => "",
'black' => "\e[40m",
'red' => "\e[41m",
'blue' => "\e[42m",
'yellow' => "\e[43m",
'green' => "\e[44m",
'majenta' => "\e[45m",
'cyan' => "\e[46m",
'white' => "\e[47m");
</syntaxhighlight>

Pavydziai.: Raudonas tekstas
printf "\e[31mRaudonas tekstas\e[0m";
Gale visada parasomas '''\e[0m''' kuris nuima einanti teksto formata (spalva), jog toliau rasomas tekstas nebutu raudonas.

== Spalvu paletes parodymas ==
foreach my $fgc (@fgColors)
{
my $printable = $fg{$fgc};
$printable =~ s/\e/e/;
printf "%9s ", $printable;
print "$fg{$fgc}$bg{$_} Text \e[0m" for @bgColors;
print "\n";
}
# Xterm extended 256-color.
print "\e[0m\n 0-15 ";
print "\e[38;5;${_}m\e[48;5;${_}m " for 0 .. 15;
print "\e[0m\n 240-255 ";
print "\e[38;5;${_}m\e[48;5;${_}m " for 232 .. 255;
print "\e[0m\n";
for my $i (16 .. 231)
{
print "\e[0m\n " if $i && ($i + 2) % 6 == 0;
print "\e[38;5;${i}m\e[48;5;${i}m ";
}
print "\e[0m\n\n";

[[Category:Programavimas]]
[[Category:Perl]]

Perl spalvos - Versijų istorija

\dev\null 14:42, 21 liepos 2016