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

# 在当前目录下，生成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