•Re: Re: Help with number conversion

$number = "0".$number until length $number >= 3;
[download]

Did you and Matt Wright go to school together?

{sigh}

-- Randal L. Schwartz, Perl hacker

update: You know, when I first posted my comment, and the post was something Matt-Wright-ish, as I commented above, I left my vote neutral. But when it was changed to:

You know what? merlyn wins. Forget it. I'll stop offering advice before running it past him first.

I finally invoked a downvote. Don't post code here unless you can take open criticism, including a little ribbing and being compared to the bad-code-poster-Child.

Comment on •Re: Re: Help with number conversion Download Code

Replies are listed 'Best First'.

Re: •Re: Re: Help with number conversion
by tachyon (Chancellor) on Apr 03, 2002 at 09:08 UTC

This is of course a job for a regex ;-)

$number = 42;
s/.*/"s||000$number|&&join'',reverse chop,chop,chop"/eieio;
print;
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[reply]
[d/l]

Re: Re: •Re: Re: Help with number conversion

by Juerd (Abbot) on Apr 03, 2002 at 09:22 UTC

A regex?

$number = 42;
$number = (' ' x (3 - length $number)) . $number | "000";
[download]

$number = 42;
$number = ('0' x (3 - length $number)) . $number;
[download]

U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk

[reply]
[d/l]
[select]

(MeowChow) Re5: Help with number conversion

by MeowChow (Vicar) on Apr 03, 2002 at 10:15 UTC

sprintf

  substr "000$num", -3
[download]

use strict;
use Benchmark qw(cmpthese);

my $num = 42;
cmpthese (-3, {
  sprintf => sub { sprintf '%03d', $num },
  concat  => sub { ('0' x (3 - length $num)).$num },
  substr  => sub { substr "000$num", -3 },
});

            Rate  concat sprintf  substr
concat  244047/s      --    -10%    -36%
sprintf 269956/s     11%      --    -29%
substr  381628/s     56%     41%      --
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

[reply]
[d/l]
[select]


We don't bite newbies here... much
	PerlMonks