如何用perl脚本生成一百万个小文件?

如何用perl脚本生成一百万个小文件?

我要做文件读写备份的测试,需要生成很多小文件,请问用perl可以做吗?谢谢!
可以
seq 1000000 | xargs -i dd if=/dev/zero of={}.dat bs=1024 count=10
肯定是可以的,看你具体要求要做什么了。描述清楚
谢谢上面各位老大,我就是想生成1百万个小文件(如1KB的),没特殊要求,马上去试一下!