maehachi08 Anything Blog

2014年04月26日
perlスクリプトで標準出力に色を付ける

スクリプトを書いているとたまにあるのが、標準出力でerrorwarningなど標準出力や標準エラー出力の文字色を変えたいということがあります。
そんな時は、Term::ANSIColorを使用すると簡単に文字色を変更できます。

#!/usr/bin/env perl
use strict;
use warnings;
use Term::ANSIColor qw( :constants );
$Term::ANSIColor::AUTORESET = 1;

print BOLD BLUE "test\n";
print BOLD BLUE ON_WHITE "test\n";
print BLINK "test\n";
print UNDERSCORE "test\n";

$Term::ANSIColor::AUTORESET = 1;を入れることでprintを実行する度にTerm::ANSIColorでの文字色設定をリセットします。BLINKUNDERSCORE は知らなかった!!