How to get a Color Display

[George Kinley]

Hi,
I am using/working on Win2K, I run my scripts on cmd.exe ,
I want to change attributes of my print statements in color ,

If I use code from perlfaq8.pod

use Term::ANSIColor;
print color("red"), "Stop!\n", color("reset");
print color("green"), "Go!\n", color("reset");


The output I get is

?[31mStop!
?[0m?[32mGo!
?[0m

I have gut feeling its a basic query , but what is wrong
-g

 

[Thomas Kratz]

Hi,
I am using/working on Win2K, I run my scripts on cmd.exe ,
I want to change attributes of my print statements in color ,

If I use code from perlfaq8.pod

use Term::ANSIColor;
print color("red"), "Stop!\n", color("reset");
print color("green"), "Go!\n", color("reset");


The output I get is

?[31mStop!
?[0m?[32mGo!
?[0m

I have gut feeling its a basic query , but what is wrong

Your command interpreter (cmd.exe) needs to have ansi.sys loaded (just
like under plain old DOS). I haven't used it myself, but I would assume
you have to put a line

device=%SYSTEMROOT%\SYSTEM32\ansi.sys

into your config.sys. Alas this is a bummer if you want to transfer the
script to other machines.

Alternatively you can use Win32::Console from the libwin32 package
available on CPAN (you'll already have that if you use ActivePerl).
This works out of the box.

Thomas