这是我的第一个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);
它的目的是到generate a file in a specified size filled with random characters.
它工作但很慢.写一个10MB的随机文件需要几秒钟.
有没有人有关于如何更快/更好的建议/提示？也可以随意指出常见的新手错误.
解决方法
>每次调用它时,您都可以要求rand为您创建多个值.
>在打印之前收集几个字符.一次打印一个字符效率低下.
>在打印之前收集几个字符.一次打印一个字符效率低下.
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;
}