从文件中随机读取（perl）

Question

在这部分代码中，我需要file.txt随机读取：

...
open my $fh, '<', 'file.txt' or die $!;

while ( <$fh> ) { 
next unless /\S/;
chomp;
my $response = $ua->get( "http://$_.domain.tld/" );
...

如何file.txt随机读取行？

Answer 1

文件按顺序访问。

您可以做的是将整个文件读入数组并从中选择一个随机条目。