Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

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
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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2015-07-06 22:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (84 votes), past polls