08/09/01 02:52:58
use Term::ANSIColor qw(:constants);
my @colors = qw(RED GREEN BLUE);
for (@colors) {
print $_, "$_", "\n";
}
みたいな事をやって、ループ内の動きが以下と等価になるようにしたいです。
print RED, 'RED', "\n";
print GREEN, 'GREEN', "\n";
print BLUE, 'BLUE', "\n";
現状はループ内の print の第一引数に文字列がそのままわたっているだけなので、
希望通りの動作をしませんが、希望通りに動かすにはどうしたら良いのでしょうか？
よろしくお願いします。