Shell Programming and Scripting

Now here is the problem
how to get the Format header in perl in different color.

I want the Header Top to come in colored i.e. what u get by using Term::ANSIColor;
Any help is Appreciated.........

Each TERM has its own control sequences to change colors -- one of the reasons they invented HTML. You could do it in HTML and browse it with lynx. Otherwise, research the control strings of your term. Does PERL have something like curses to deal with terminal variations?

Perhaps you should try sprintf instead of format, you should then be able to use the Term::ANSIColor features

Code:

#!/usr/bin/perl
use warnings;
use strict;
use Term::ANSIColor;
 
print colored( sprintf("%-20.20s   %-12.12s    %12.12s", 'Field', 'Value', 'Actual'), 'blue' ), "\n";

Thanks Chubler 4 ur reply.. But what I am tryin to achive here is to generate a report which comes as a minimum of 30 pages with page no indexing and with [ write $DOF, $V, $SV, $S; ] I can get the values printed with a well formated way i.e. having the Format top recurring every time the page length out occures and if I follow ur suggested way it would be difficult to incorporate all what I need.

Although it is not absolutely necessary to get the format header in colored but it certainly will make my report look good.

Awaiting ur reply......