Мне нужно найти простой способ изменить цвет вывода текста в Perl. Как мне это сделать?
print "Do you agree with me that I'm a Perl noob?";
print "> ";
chomp(my $question = <STDIN>);
if($question eq "yes") {
print "You are smart!";
} if($question eq "no") {
print "You stupid";
}
Я просто хочу изменить цвет. Нечего сказать.
Часть Windows не проверена:
use if 'MSWin32' eq $^O, 'Win32::Console::ANSI';
use Term::ANSIColor qw(:constants);
print BRIGHT_RED ON_BLUE "You are smart!\n";
print BOLD GREEN ON_WHITE "You stupid\n";
END { print RESET; }
Если терминал перепутался из-за того, что блок END не был запущен (например, из-за сбоя), запустите команду reset из пакета ncurses-utils.
К сожалению, Term::ANSIColor не поддерживает произвольные цвета, поскольку API застрял в прошлом тысячелетии. Вам нужно говорить на необработанных кодах ANSI.
for my $c (split //, 'Sunshine, lollipops and rainbows') {
printf "\x1b[38;2;%d;%d;%dm", rand 256, rand 256, rand 256; # fg
printf "\x1b[48;2;%d;%d;%dm", rand 256, rand 256, rand 256; # bg
print $c;
}
END { print "\x1b[0m"; } # reset
