Пример вывода случайного элемента из массива на Perl:
my @arr = ('foo', 'bar', 'baz');
print random(@arr);
sub random {
my @values = @_;
return $values[int rand scalar @values];
}
Пример вывода случайного элемента из массива на Perl:
my @arr = ('foo', 'bar', 'baz');
print random(@arr);
sub random {
my @values = @_;
return $values[int rand scalar @values];
}
Renotes © 2012 - 2022
Заметки web-разработчиков ·RSS