快速生成大量随机大小的文件

# 在当前目录下，生成50W个大小0-8K的随机txt文件
time perl -E '
  $n=shift;
  $max_size=1024 * shift;
  for(1..$n){
    open $f, ">", "$_.txt" or die "open failed: $!";
    print {$f} "0" x int(rand($max_size));
    close $f or die "close failed: $!";
  }
' 500000 8

real    0m8.073s
user    0m1.618s
sys     0m6.313s

 

转载请注明出处：https://www.cnblogs.com/f-ck-need-u/p/10504962.html

如果觉得文章不错，不妨给个打赏，写作不易，各位的支持，能激发和鼓励我更大的写作热情。谢谢！