This should round when cents are higher than 50.
Unfortunately it doesn't work if @cent[1] is a value with zero like = @cent[0].60 or .50. ecc.
(It works only for a "full" value like .61, .53 ecc. ) I guess perl is removing zero.

code:
-----
@cent = split/\./,$lit;
@cent[1] = substr(@cent[1], 0, 2);
$lit++ if (@cent[1] > 50);
$lit=~s/.@cent[1]//;

----
Any suggestions to fix this?
Thanks.

Try this:
This will round 2 places past the decimal.

Chris Ellenburg
chris@wfmy.com

------------------
WFMY-TV Webmaster

Try this revised code from before:
-- Gordon --


------------------
$blah='82:84:70:77';
print chr($_) foreach (split/:/,$blah);

Chris:
I get a format like $cent[0].6
I removed 0

Gordon:
I get a server error.

Thanks very much for your help.

Robert:

Forget the whole deal about

Take the original number, ($lit), which I'm guessing is probably a number like 12.54664. Just take $lit and do what I showed you above.

------------------
WFMY-TV Webmaster