How to change the color of the text

PilotinControl25 has asked for the wisdom of the Perl Monks concerning the following question:

I would like to change the color of the output any suggestions instead of using print/printf/sprintf thanks.</>

#!/usr/bin/perl

open (FILE, "railcardata.txt");
while (<FILE>) {
chomp;
($roadname, $roadnumber, $cartype, $interrr) = split(":");
write;
}

close (FILE);

format STDOUT_TOP =

======================================================================
ROAD NAME    ROAD NUMBER    CAR TYPE    INTERCHANGE RAILROAD
======================================================================

.
format STDOUT =
@<<<<<<<<<<<<<    @<<<<<<<<<<<<<<    @<<<<<<<<<<<<<<    @<<<<<<<<<<<
$roadname, $roadnumber, $cartype, $interrr
.

sleep 12;
[download]

Comment on How to change the color of the text Download Code

Replies are listed 'Best First'.
Re: How to change the color of the text by toolic (Bishop) on Sep 26, 2012 at 02:06 UTC
instead of using print I don't understand your restriction, but I have used Term::ANSIColor	[reply]
Re^2: How to change the color of the text by PilotinControl25 (Initiate) on Sep 26, 2012 at 02:11 UTC
I've inserted the ANSI code and it should display the whole output in another color correct? However it does not. What am I missing? Thanks. #!/usr/bin/perl use Term::ANSIColor qw(:constants); print GREEN, open (FILE, "railcardata.txt"); while (<FILE>) { chomp; ($roadname, $roadnumber, $cartype, $interrr) = split(":"); write; } close (FILE); format STDOUT_TOP = ====================================================================== ROAD NAME ROAD NUMBER CAR TYPE INTERCHANGE RAILROAD ====================================================================== . format STDOUT = @<<<<<<<<<<<<< @<<<<<<<<<<<<<< @<<<<<<<<<<<<<< @<<<<<<<<<<< $roadname, $roadnumber, $cartype, $interrr . sleep 12; [download]	[reply] [d/l]
Re^3: How to change the color of the text by frozenwithjoy (Priest) on Sep 26, 2012 at 02:35 UTC
"ANSI doesn't take" What do you mean by that?	[reply]
Re^3: How to change the color of the text by Anonymous Monk on Sep 26, 2012 at 02:15 UTC
I've used ANSI also with great success...however I am stuck in this scenario no matter how I try and code it ANSI doesn't take...any suggestions in the code? thanks Maybe you ought to show that code? Does your terminal support ANSI escapes?	[reply]
Re^2: How to change the color of the text by PilotinControl25 (Initiate) on Sep 27, 2012 at 02:40 UTC
I inserted the ansi code and it is not displaying green text please explain? thanks	[reply]
Re^3: How to change the color of the text by Anonymous Monk on Sep 27, 2012 at 03:04 UTC
What operating system, what shell, what code?	[reply]
Re: How to change the color of the text by Plankton (Vicar) on Sep 27, 2012 at 02:57 UTC
Does this code work, in color, on your system? `use Term::ANSIColor; print color 'bold blue'; print "This text is bold blue.\n"; print color 'reset'; print "This text is normal.\n"; print colored ("Yellow on magenta.", 'yellow on_magenta'), "\n"; print "This text is normal.\n"; print colored ['yellow on_magenta'], 'Yellow on magenta.', "\n"; print colored ['red on_bright_yellow'], 'Red on bright yellow.', "\n"; print colored ['bright_red on_black'], 'Bright red on black.', "\n"; print "\n";` [download]	[reply] [d/l]