Выберите массив из массива в Perl

Question

Я хотел бы сделать следующее в Perl:

my @triples=([3,4,5],[5,12,13],[8,5,17],[7,24,25]}; 

Тогда я хочу, чтобы выбрать один из четырех троек вкось, а затем присвоить элементы отбора переменные x, y и r.

Например, если [3,4,5] выбрано случайным образом, назначьте x = 3, y = 4, r = 5.

Любые предложения?

Answer 1

Целое число от 0 до 4 (4 эксклюзив):

int(rand 4). 

Используйте это в качестве индекса массива:

$triplets[int(rand 4)] 

Теперь разыменования и назначить своим переменным:

my ($x, $y, $r) = @{$triplets[int(rand 4)]} 

как @Jim Davids указал, вы можете отказаться от int и получить более общий подход, лет u может использовать @triplets в скалярном контексте, чтобы получить длину массива.

my ($x, $y, $r) = @{$triplets[rand @triplets]}