VPF::perl & rand - Форум программистов

xtreem

Дата 15.5.2007, 17:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 24.4.2007

Репутация: нет
Всего: нет

есть в перле замечательная функция rand.
скажите пожалуйсто, как сделать так, что бы эта функция выводила рэндомные буквы?
к примеру мне нужна строка из 10 рэндомных символов, которые включают в себя буквы различного регистра и цифры. Подскажите, как это реализовать?

nitr

Дата 15.5.2007, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

очень много реализаций smile

вот один из "ужасных":

Код


#!/usr/bin/perl -w
use strict;

my $str;
my $arr = [split //, 'abcdefghijklmnopqrstuvwxyz'];
for (1..4) {
    $str .= $$arr[(int(rand(scalar(@$arr))))];
}
print $str;

4 буквы

--------------------

I love ArchLinux

arto

Дата 15.5.2007, 19:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

join "",map { ('a'..'z')[rand 26] } 1..10

xtreem

Дата 15.5.2007, 21:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 24.4.2007

Репутация: нет
Всего: нет

спасибо вам

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »