请教一个小问题

请教一个小问题

请教一个小问题
1 我想实现一个能按要求输出特定格式的数据

比如我输入一个数字4,它会输出数字1000
如果输入5它会输出数字10000
请问如何制作?
perl -e '$a=<>;if(.
perl -e '$a=<>;if($a eq "4\n"){print 1000}elsif($a eq "5\n"){print 10000}'
..............--楼上的.
..............
楼上的佩服
[CCB]2[/CCB]
perl -e "$a = <>; .
perl -e "$a = <>; print '1' . '0' x ($a -1)"
sprintf("1%s", 0 x ($num.
sprintf("1%s", 0 x ($num - 1)
呵呵。楼上的是对的,不过.
呵呵。楼上的是对的,不过少了个右括号
2楼的,如果我输入是2或者6,100,10000呢?呵呵不过还是要感谢你
最方便和最容易理解的还是beckheng的啊
[quote]呵呵。楼上的是对的,不过少了个右括号
2楼的,如果我输入是2或者6,100,10000呢?呵呵不过还是要感谢你
最方便和最容易理解的还是beckheng的啊 [/quote]

你没有说啊。
菜田守望者 的答案也.
菜田守望者 的答案也是对的,而且还是从STDIN输入!