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

lipch

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

[ 本帖最后由 lipch 于 2007-10-6 20:07 编辑 ]

Lonki

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

另更简洁的

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

[ 本帖最后由 Lonki 于 2007-10-7 00:34 编辑 ]

lipch

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

[ 本帖最后由 lipch 于 2007-10-7 22:39 编辑 ]

redspider

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

Lonki

原帖由 redspider 于 2007-10-6 21:35 发表
for ('00' .. '99') { }

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

lipch

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

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

hhh6897

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

flw

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

lipch

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

[ 本帖最后由 lipch 于 2007-10-7 01:41 编辑 ]

cobrawgl

There is more than one way to do it
(TIMTOWTDI, usually pronounced 'Tim Toady')

[ 本帖最后由 cobrawgl 于 2007-10-7 09:35 编辑 ]