perl 随机获取数组中的元素
2021-05-29 本文已影响0人
qujingtao
对于一个数组，随机获取其中一个或多个元素。
- 利用List::Util 模块中的shuffle，这将对数组进行随机排序，需要随机取多少个元素就提起前几个元素随机排序的元素。
use List::Util qw(shuffle);
my @data = ("a", "b", "c", "d");
my @rand_data = shuffle(@data);
my @rand_select_data = @rand_data[0..1];
map {print "$_\n"}@rand_select_data;
- 利用rand函数
