perl -le 'print qq(@{["002".."020"]})'
[download]

Update:

perl -le'$,=$";print"002".."020"'
[download]

-sauoq
"My two cents aren't worth a dime.";

Look Ma! No quotes!

perl -l40eprint,for'002'..'020'
[download]

---

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller
If I understand your problem, I can solve it! Of course, the same can be said for you.

Gee... that doesn't work for me. Here's why:

$ perl -MO=Deparse -l40eprint,for'002'..'020'
BEGIN { $/ = "\n"; $\ = " "; }
print($_), 'for002' .. 16;
-e syntax OK
[download]

-sauoq
"My two cents aren't worth a dime.";

That didn't work for me. All it did was print a space. (Both 5.6.0 on AIX and 5.8.0 on Solaris.)

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

Nice. 24.. you guys are getting dangerously close. ;-) No quotes, btw? Then what are those four thingies? ;^)

Makeshifts last the longest.

I was suprised no one else came up with the magic increment. I had
perl -e 'print"$_ "for"002".."020"'
since I didn't remember $,.

#        1234567890123456789012
perl -le'$#=" %03g";print 2..20'
[download]

Makeshifts last the longest.

Nice. Except for that leading space in the output... Still, you get an upvote from me.

Update: Of course, you can fix the leading space with "$#="%03g " instead. I can't tell if the example output had a space on the end, so we'd have to let that slide, I guess. (BrowserUk's has a space on the end too, afterall.) That just leaves us with the fact that $# is deprecated. It works... for now. :-)

-sauoq
"My two cents aren't worth a dime.";

25

perl -e"printf'%03d 'x18 .$/,2..20"

I'm sure that you meant:


perl -e"printf'%03d 'x19 .$/,2..20"


By the way, it's 26 unless you started counting with 0.

25

Have you miscounted? I count that as 26 between the quotes... you should really count your switches though. So, I'd give that a 30.

And I'm up two strokes with 28. :-P

(Or, we are at 28 27 and 26 25¹ repectively if we put our solutions in files to avoid problems that result from quoting on different platforms.)

And it would be 24 but I think -l is warranted! :-)

-sauoq
"My two cents aren't worth a dime.";

Don't mind that thumping sound in the background--that's just my head slamming against the monitor, saying "Why didn't I think of that?" :)

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

I'm not sure this is a correct solution. The original printed a newline at the end, your version prints a space.

Jenda
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live.
   -- Rick Osborne

Edit by castaway: Closed small tag in signature

Well, I've never really golfed before, but I'll give it a whirl...

# original example, 58 chars

perl -e 'print join(" ", map { sprintf("%03u", $_) } (2..20)), "\n"'
[download]

# my golf score: 45 chars

perl -e 'print((map{sprintf("%03u ",$_)}(2..20)),"\n")'
[download]

</ajdelore>

Slight trick to get rid of the join.

Saves 1 char. I feel special!

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

echo '"000" .. "020"' | perl -ple '@f=eval;$_="@f"'
[download]

Between the quotes, I'm at 14. Woo-hoo! *laughs*

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

Well, if you want to go that route..

echo '@_ = "002" .. "020"; print "@_\n"' | perl -ne 'eval'
[download]

Four characters! (Reminds me of "how do you write a LISP interpreter in LISP?".)

Makeshifts last the longest.

Minor improvement: all the parentheses are unnecessary.

perl -le'printf"%03u ",$_ for 2..20'
[download]

-- Mike

--
XML::Simpler does not require XML::Parser or a SAX parser. It does require File::Slurp.
-- grantm, perldoc XML::Simpler

perl -e 'print"0$_ "for"02".."20"'
         123456789012345678901234
[download]

for 40

-enlil

24 chars. But I bet its already posted. (havent checked to keep an open mind.)

perl -e "$,=' ';print'002'..'020'"
perl -e '$,=" ";print"002".."020"'
[download]

I must be missing something though.. Surely this is obvious?

/me wishes it was friday...

~Particle *accelerates*

$perl -le'$,=$";print"002".."020"'
002 003 004 005 006 007 008 009 010 011 012 013 014 015 016 017 018 01
+9 020

$perl -e'print length q/$,=$";print"002".."020"/'
23
[download]

That's exactly what sauoq already posted a while ago.

Makeshifts last the longest.

print join(" ", map { sprintf("%03u", $_) } (2..20)), "\n";exit 0
[download]

perl -Mi
[download]

Er, this waits on STDIN for a program to be piped in.


---
demerphq

_{<Elian> And I do take a kind of perverse pleasure in having an OO assembly language...}

That is why it says "exit 0" at the end! :)