Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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

by ww (Bishop)
on Jun 21, 2013 at 12:02 UTC ( #1040138=note: print w/ replies, xml ) Need Help??

in reply to Re^2: How to print colored word in text file
in thread How to print colored word in text file

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

If you didn't program your executable by toggling in binary, it wasn't really programming!

Comment on Re^3: How to print colored word in text file
Replies are listed 'Best First'.
Re^4: How to print colored word in text file
by dasgar (Curate) on Jun 21, 2013 at 13:08 UTC

    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.

      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";
        ++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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1040138]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2015-11-27 01:47 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (712 votes), past polls