有没有更有效的方法在Perl中生成随机文件？

Question

这是我的第一个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);

其目的是生成一个填充了随机字符的指定大小的文件.

它工作但很慢.写一个10MB的随机文件需要几秒钟.
有没有人有关于如何更快/更好的建议/提示？也可以随意指出常见的新手错误.

Answer 1

1. rand每次调用它时,您可以要求为您创建多个值.
2. 在打电话之前收集几个字符print.一次打印一个字符效率低下.

 

for (my $bytes = 0; $bytes < $num_bytes; $bytes += 4) {
    my $rand = int(rand($range ** 4));
    my $string = '';
    for (1..4) {
        $string .= chr($rand % $range + $minimum);
        $rand = int($rand / $range);
    }
    print FILE $string;
}

Answer 2

从/ dev / random写入流数据。

#!/usr/bin/perl
use File::Copy;
if ($#ARGV < 1) { die("usage: <size_in_bytes>\n"); }
copy("/dev/random","tmp", $ARGV[0]) or die "Copy failed: $!";

代码未经测试。

编辑： 由于您想要一个范围，请执行此操作。

您的范围介于96和32之间，即64的间隔。64 = 01000000b（十六进制为0x40）。只需生成您的数字，然后对要生成的值范围内的数字-1进行按位与运算，然后通过对其值进行按位或运算（00100000b或0x20）来添加下限

这将使您能够做任何事情，例如获取任意随机字符串（只需从/ dev / random中读取原始十六进制）并将数据转换为您的范围内。