Вот быстрый грязный скрипт, который я написал на Perl. Это позволяет вам контролировать диапазон символов, которые будут в сгенерированном файле.
#!/usr/bin/perl
if ($#ARGV < 1) { die("usage: <size_in_bytes> <file_name>\n"); }
open(FILE,">" . $ARGV[0]) or die "Can't open file for writing\n";
# you can control the range of characters here
my $minimum = 32;
my $range = 96;
for ($i=0; $i< $ARGV[1]; $i++) {
print FILE chr(int(rand($range)) + $minimum);
}
close(FILE);
Для использования:
./script.pl file 2048
Вот более короткая версия, основанная на идее С. Лотта о выводе в STDOUT:
#!/usr/bin/perl
# you can control the range of characters here
my $minimum = 32;
my $range = 96;
for ($i=0; $i< $ARGV[0]; $i++) {
print chr(int(rand($range)) + $minimum);
}
Предупреждение: Это первый скрипт, который я написал на Perl. Когда-либо. Но, похоже, работает нормально.