Eliminating Trailing Zeros

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

Replies are listed 'Best First'.
Re: Eliminating Trailing Zeros by jmcnamara (Monsignor) on Jul 17, 2003 at 15:18 UTC
Use the `g` format instead of `f` and no further formatting should be required: `$ perl -e 'printf "%2.4g\n", 23.05' 23.05 $ perl -e 'printf "%2.4g\n", 23.00' 23` [download] See the sprintf manpage for more details: `g The double argument is converted in style f or e (or E for G conversions). ... Trailing zeros are removed from the fractional part of the result; ...` [download] -- John.	[reply] [d/l] [select]
Re: Eliminating Trailing Zeros by dreadpiratepeter (Priest) on Jul 17, 2003 at 14:29 UTC
$n =~ s/\.0$\|0$//; UPDATE: fixed lack of reading requirements -pete "Worry is like a rocking chair. It gives you something to do, but it doesn't get you anywhere."	[reply]
Re: Re: Eliminating Trailing Zeros by Trimbach (Curate) on Jul 17, 2003 at 14:37 UTC
$n=~s/\.\|\.0+$// ~~That's broken. It deletes the period but leaves in the trailing zeros.~~ This is better, and does what's requested: `s/\.?0*$//;` [download] Gary Blackburn Trained Killer	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.
Re: Re: Eliminating Trailing Zeros by Anonymous Monk on Jul 17, 2003 at 14:40 UTC
That is Perfect! Thanks!	[reply]
Re: Eliminating Trailing Zeros by Aristotle (Chancellor) on Jul 17, 2003 at 15:15 UTC
For completeness' sake, one that doesn't break when there's no decimal point. `s/(?:(\.\d[1-9])\|\.)0+\z/$1/;` [download] Makeshifts last the longest.*	[reply] [d/l]
Re: Eliminating Trailing Zeros by ihb (Deacon) on Jul 17, 2003 at 20:16 UTC
`$n += 0;` KISS, `ihb`	[reply] [d/l] [select]
Re^2: Eliminating Trailing Zeros by Aristotle (Chancellor) on Jul 23, 2003 at 00:33 UTC
I can't believe we were all stuck in string mode when the answer was that obvious. Makeshifts last the longest.	[reply]
Re: Eliminating Trailing Zeros by Lachesis (Friar) on Jul 17, 2003 at 14:36 UTC
`$n =~ s/\.?0+$//;` Update: Thanks to dreadpiratepeter for spotting my stupid mistake. The better option would be `$n =~ s/\.\d?0+$//;` Update2:* That worked with my test data but only because I wasn't using formatted strings so trailing 0s were already dealt with. Doh! With a %x.yf formatted string the original approach will work fine. jmcnamara came up with probably the best solution Re: Eliminating Trailing Zeros	[reply] [d/l] [select]
Re: Re: Eliminating Trailing Zeros by Anonymous Monk on Jul 17, 2003 at 15:06 UTC
works except for: it doesn't work if you have this: (the sprintf before it: `$n=sprintf("%2.4f",$n); $n =~ s/\.\d*?0+$//;` [download] What do you think? Is there one that will cover this scenario too?	[reply] [d/l]
(jeffa) 3Re: Eliminating Trailing Zeros by jeffa (Bishop) on Jul 17, 2003 at 15:19 UTC
Use a sexeger (a reverse regex): `$n = reverse scalar sprintf("%2.4f",$n); $n =~ s/^0+//g; $n = reverse scalar $n; $n =~ s/\.$//g;` [download] now if could just condense those two regexes into one ... but sometimes, brute force is better than cleverness. UPDATE: aha! `$n = reverse scalar sprintf("%2.4f",$n); $n =~ s/^0+\.?//g; $n = reverse scalar $n;` [download] that was easier than i thought ... unless i missed something [And i did ... glad i retested, because i had forgotten to espace the dot .. bad jeffa. Also, the scalar keywords are not necessary]. And jmcnamara++ ... that's the best solution posted (IMHO) since you already are using sprintf. 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] [select]
Re: (jeffa) 3Re: Eliminating Trailing Zeros by pemungkah (Priest) on Jul 17, 2003 at 20:06 UTC
Re: Re: (jeffa) 3Re: Eliminating Trailing Zeros by dragonchild (Archbishop) on Jul 17, 2003 at 20:14 UTC
Re: Re: Eliminating Trailing Zeros by dreadpiratepeter (Priest) on Jul 17, 2003 at 14:39 UTC
That turns 420000 into 42 -pete "Worry is like a rocking chair. It gives you something to do, but it doesn't get you anywhere."	[reply]
Re: Eliminating Trailing Zeros by demerphq (Chancellor) on Jul 17, 2003 at 15:04 UTC
`($n=sprintf "%2.4f",$n)=~s/\.?0+$//;` [download] --- demerphq _{<Elian> And I do take a kind of perverse pleasure in having an OO assembly language...}	[reply] [d/l]
Re: Eliminating Trailing Zeros by RollyGuy (Chaplain) on Jul 17, 2003 at 14:40 UTC
$n =~ s/\.?0*$//; Enjoy.	[reply]


Your skill will accomplish what the force of many cannot
	PerlMonks