Re: Term:ANSIColor and negative numbers

[James Edward Gray II]

On Dec 17, 2003, at 11:25 AM, Steve Massey wrote:

Hi All

using Term:ANSIColor - does anyone know if it's possible ( or maybe I 
mean
practical) to print out negative numbers in say RED, at the same time
ensuring the original value is retained.

so if value is -16 the it should print 16 in RED text otherwise leave 
it
alone.
Sure.

use Term::ANSIColor;

my $value = -16;

if ($value >= 0) { print "$value\n"; }
else { print colored(abs($value), 'red'), "\n"; }
Hope that helps.

James

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>