Leitura aleatória do arquivo (perl)

Question

Nesta seção do código, preciso ler file.txt aleatoriamente:

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

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

Como ler linhas de file.txt aleatoriamente?

    

Answer 1

Os arquivos são acessados sequencialmente.

O que você pode fazer é ler o arquivo inteiro em uma matriz e selecionar uma entrada aleatória a partir dele.