Decimal Removal

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

Replies are listed 'Best First'.
Re: Decimal Removal by gumby (Scribe) on Jun 19, 2002 at 13:37 UTC
The floor function is basically `int()` and therefore ceiling is `int()+1`. But as perlfunc says '...sprintf, printf, or the POSIX::floor and POSIX::ceil functions will serve you better than will int()'.	[reply] [d/l] [select]
Re: Decimal Removal by Sifmole (Chaplain) on Jun 19, 2002 at 13:36 UTC
You need to "escape" your decimal and it is probably a good idea to anchor it to the end of the string if possible ("$") `s/\.(\d+)$//;` [download] An unescaped "." is a meta-character not an actual ".".	[reply] [d/l]
Re^2: Decimal Removal by flounder99 (Friar) on Jun 19, 2002 at 15:10 UTC
Also, unless you are going to use the stripped digits there is no reason to capture them with the `()` -- flounder	[reply] [d/l]
Re: Re^2: Decimal Removal by Sifmole (Chaplain) on Jun 19, 2002 at 15:12 UTC
The poster implied they were because they were looking to do some rounding, as well they were capturing in the posted example. I was not trying to rewrite the posters code, just correct the things that were causing problems and improve where it didn't change the meaning. But yes you are right that if the poster does not intend to use the stripped digits then there is no reason to capture them with the parens.	[reply]
(jeffa) Re: Decimal Removal by jeffa (Bishop) on Jun 19, 2002 at 13:37 UTC
Try int() or int() + 1: `$numb = int(872.56); $numb = int(872.56) + 1;` [download] jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]
Re: Decimal Removal by jmcnamara (Monsignor) on Jun 19, 2002 at 13:40 UTC
One more method (rounds down): `$int = sprintf "%d", $num;` Or this (rounds up for > .5): `$int = int $num + $num =~ /\.[5-9]/;` -- John.	[reply] [d/l] [select]
Re: Re: Decimal Removal by DamnDirtyApe (Curate) on Jun 19, 2002 at 13:50 UTC
Or, to round to the nearest integer: `$int = sprintf "%d", ( $num + 0.5 ) ;` [download] _______________ D a m n D i r t y A p e Home Node \| Email	[reply] [d/l]
Re: Decimal Removal by Abigail-II (Bishop) on Jun 19, 2002 at 15:43 UTC
Rounding to the nearest integer ought to be done with `sprintf`: `my $rounded = sprintf "%.0f" => $not_rounded;` [download] Abigail	[reply] [d/l] [select]