Случайная сортировка массива - perl

Question

Мне нужно знать, как я могу заполнить массив в perl случайным образом. Например: я хочу объявить массив, содержащий 10 элементов, меньших 60. Может кто-нибудь объяснить мне, как я могу это сделать или отправить мне какой-нибудь путеводитель? Я был бы так благодарен.

Answer 1

Я предполагаю, что вы имели в виду «десять неотрицательные целые числа меньше, чем 60».

С возможностью повторами:

my @rands = map { int(rand(60)) } 1..10; 

Например,

$ perl -E'say join ",", map { int(rand(60)) } 1..10;' 
0,28,6,49,26,19,56,32,56,16  <-- 56 is repeated 

$ perl -E'say join ",", map { int(rand(60)) } 1..10;' 
15,57,50,16,51,58,46,7,17,53 

$ perl -E'say join ",", map { int(rand(60)) } 1..10;' 
13,57,26,47,30,14,47,55,39,39  <-- 47 and 39 are repeated 

без возможности повторов:

use List::Util qw(shuffle); 

my @rands = (shuffle 0..59)[0..9]; 

Например,

$ perl -MList::Util=shuffle -E'say join ",", (shuffle 0..59)[0..9];' 
13,50,8,21,11,24,28,51,55,38 

$ perl -MList::Util=shuffle -E'say join ",", (shuffle 0..59)[0..9];' 
1,0,58,46,47,49,52,33,5,13 

$ perl -MList::Util=shuffle -E'say join ",", (shuffle 0..59)[0..9];' 
19,43,45,49,23,53,2,38,59,35 

Answer 2

Вы можете просто сделать:

my @r = map int(rand(60)), 0..9; 
say Dumper\@r; 

Answer 3

Вы можете воспользоваться случайной сортировки в Perl хэш-ключей. Это заполнит массив из 10 элементов случайным образом каждый раз, когда вы запускаете его:

use warnings; 
use strict; 

my @nums = (1 .. 60); 

my %data; 

$data{$_}++ foreach @nums; 

my $count = 0; 
my @random; 
foreach (keys %data){ 
    $count++; 
    push @random, $_ if $count <= 10; 
}