понедельник, 10 августа 2009 г.

Term::ANSIColor (стандартный модуль) - раскрась терминал

Очень простой стандартный модуль, который великолепно справляется со своей задачей, а именно подсветить текст необходимым Вам цветом.
За деталями лезем в  perldoc Term::ANSIColor
Пример 1.
use Term::ANSIColor;
print color 'bold blue';
print "This text is bold blue.\n";
print color 'reset';
print "This text is normal.\n";
print colored ("Yellow on magenta.\n", 'yellow on_magenta');
print "This text is normal.\n";
print colored ['yellow on_magenta'], "Yellow on magenta.\n";

Пример 2.
use Term::ANSIColor qw(:constants);
print BOLD BLUE ON_WHITE "This text will be bold blue on white background", RESET;