in reply to
Re: How to change the color of the text
in thread How to change the color of the text
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;
