Как создать фиктивный файл с помощью Perl?

Question

Как бы я создал фиктивный файл с помощью Perl?Мне нужно создать несколько миллионов файлов (около 5 КБ - 1 МБ каждый), поэтому очень важно сделать это как можно быстрее.Итак, что будет самым быстрым способом создания фиктивного файла с помощью Perl?

Answer 1

my $DUMMY;

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

Answer 2

"Хорошо, это работает, но как определить фиктивный файл с точным размером, скажем, 2 КБ?"- 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 $!;