如何用Perl创建一个虚拟文件？

Question

如何使用Perl创建虚拟文件？我需要创建几百万个文件（大约5KB - 每个1MB），因此尽可能快地完成它是非常重要的。那么，使用Perl创建虚拟文件的最快方法是什么？

Answer 1

my $DUMMY;

open $DUMMY, '>', 'dummy.file' and close $DUMMY;

Answer 2

  

“好的，这可行，但是如何定义具有确切大小的虚拟文件，比如2KB？” - user1039509

这应该有效：

open FH, '>', 'dummy.file' and print FH "X" x 2048 and close FH or die $!;

如果您不关心文件包含的内容，使用seek可能会稍快一些：

open FH, '>', 'dummy.file' and seek FH, 2047, 0 and print FH "\0"
    and close FH or die $!;