小白问：请高手想个高明的办法生成诸如001,002,003,...999的方法(已解决)

如题所示
我只知道通过求$i++后的长度再用'.'连上相应长度的0进行输出
有没有什么函数可以巧妙的生成诸如
0001
0002
0003
9999
这样的能力？

my @num = map { sprintf("%04s", $_) } (0..9999); print join("\n", @num);

另更简洁的

my @num = '0000'..'9999'; print join("\n", @num);

wow, 谢谢lonki，程序很巧妙，顺便弄懂了map和sprintf的“0”4s
不过看完兰花姐姐的矩阵变换还是挺头大。其它的免强明白。
估计经验还不到那里。

for ('00' .. '99') { }

才发现字符串也能..
这下容易了

print join ("\n",map {sprintf ("%02s",$_)} (0..10));

现学现用。
per好强大的东西，看完grep，才发现这两个真的很容易搞混淆。不过，刚才拜读完learning perl 4th edition，总算弄清它们的差别。

沾前人光，修改！
print map { sprintf("%04s\n", $_) } (0..9999);

这是 Perl 自带的功能。
perl -le "print for ('0000'..'9999')"

越来越有意思了。看来4,8楼的是最简洁的了。
在for中进行循环的同时，还可以加入其它的express。
for ('000'...'999') {
print;
express...
}