Re: Negative zero? There's gotta be a sprintf that undoes that, right?

I know of no way to do this within sprintf, but how about this:

sub remove_sign_on_zero {
    my $num_str = shift;
    if ($num_str =~ /^-([0\.]+)$/) {
        return " $1";
    } 
    else {
        return $num_str;
    }
}

my $num = remove_sign_on_zero( sprintf('%7.5f', $example) );
[download]

The sub can be written golfier, if you like:

sub remove_sign_on_zero { $_[0]=~/^-([0\.]+)$/ ? " $1" : $_[0] }
[download]

Comment on Re: Negative zero? There's gotta be a sprintf that undoes that, right? Select or Download Code

Replies are listed 'Best First'.
Re^2: Negative zero? There's gotta be a sprintf that undoes that, right? by suaveant (Parson) on Dec 12, 2007 at 15:13 UTC
Now... here's a really sick method that uses the regexp, but only to remove the leading - when needed. -0 == 0 but also -0 lt 0 so... `$num=sprintf("%7.5f",$num); $num=~s/^-// if $num == 0 && $num lt 0;` [download] minimal regexp work and works for any precision. Update Caveat... only works in locales where "-" is lower than 0-9 - Ant - Some of my best work - (1 2 3)	[reply] [d/l]