需要尽快使用perl创建每个10GB的10,000个文件

jai*_*ais -3 random perl file large-files

我需要创建一些1GB或更高的随机文件(比如100,000).我尝试了打开文件的正常方式,并使用print/syswrite写入它,但它需要超过30分钟.有人可以告诉我任何其他有效的快速方法,我可以在perl中实现它.

Bor*_*din 7

你想用这些文件做什么?

标准硬盘驱动器通常每秒写入100MB.

这意味着写入10GB文件需要100秒.

10,000个这样的文件需要100万秒,或大约11.5天,并将占用100TB或25个标准4TB 3.5in驱动器.

您可以说服文件系统只是空间分配给文件而无需编写任何内容,但是我知道使用脚本语言没有办法做到这一点.最终你会得到包含随机数据的文件.


yst*_*sth 5

在posixy系统上,只需:

dd bs=1M count=10240 if=/dev/urandom of=foo.dat
Run Code Online (Sandbox Code Playgroud)

这应该最多需要几分钟.