如何获得一个随机元素从一系列在Perl

任务。 在程序中编程语言Perl有一系列的价值观。 你需要一个随机元素从这一阵列。

解决这个问题在Perl看起来非常美丽和优雅。 使用 rand()职能 产生随机指数 元素。

这里是一样的代码。 有一系列其是在这一系列与色。 代码显示一个随机的颜色从阵列。

▶ Run
#!/usr/bin/perl

my @colors = ('red', 'green', 'blue', 'magenta', 'white');

my $color = $colors[ rand @colors ];

print $color;

它是如何工作的。 有一系列 @colors. 它有 5的元素。 为了解决第一件你需要编写 $colors[0], 到最后— $colors[4].

在这个例子中, rand @colorsrand(5). 在此 使用一系列其返回的数量元素数。 (标上下文)。

rand @colors 返回人数从 0 (含)以数量 5 (但不是 包括该数量)。 例如,这一操作的结果可以是数量 3.70744988833152.

和最后的步骤。 结果 rand @colors 用作指数 阵列。 即原来的东西喜欢 $colors[ 3.70744988833152 ]. 此 进入返回同一阵元作为项 $colors[3], 即第四个因素的串 'magenta'.

相关的主题

其他文章