Re^3: How to print colored word in text file

[ww]

Same problem as hdb; may be user-error, but I can't recall ever (on M$ osen) making Term::ANSIColor work as advertized.

[dasgar]

I haven't tried doing colored text in a Windows command prompt before. However, I know that Damian Conway's Regexp::Debugger module is definitely creating colored text within a command prompt on Windows 7. It looks like he's using Win32::Console::ANSI to get the colored text to show up in the command prompt.

[hdb]

Thanks a lot this works for me. Example I tried from the documentation:

use Win32::Console::ANSI;

print "\e[1;34mThis text is bold blue.\e[0m\n";
print "This text is normal.\n";
print "\e[33;45;1mBold yellow on magenta.\e[0m\n";
print "This text is normal.\n";

[Khen1950fx]

++hdb. For something different, I would use Win32::Console::ANSI and Term::ANSIColor::Print.

#!/usr/bin/perl 

BEGIN {
    $|  = 1;
    $^W = 1;
    eval {
        require Readonly;
    };

}

use strict;
use warnings;
use Win32::Console::ANSI;
use Term::ANSIColor::Print;

my $print = Term::ANSIColor::Print->new();

$print->bold_blue( "This text is bold blue." );

$print->normal( "This text is normal" );

$print->bold_yellow_on_magenta( 
    "This text is bold yellow on magenta", 
);

$print->normal( "This text is normal." );

print "To print a specific word such as ERROR in red: ";
$print->red("ERROR");

I don't have access to a Windows machine, so it isn't tested. Please let me know if it works for you.