VPF::случайный выбор - Форум программистов

Гость_Сергей

Дата 27.4.2005, 15:37 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

вот как получить случайное число от 0 до 1 я знаю.
а как получить случайную строку?
есть массив допустимых символов
a-z A-Z 0-9 `~!@#$%^&*()_+-=[]{};':",./<>?\|
нужна строка длиной 12 символов, все элементы которой выбирались бы из массива допустимых символов случайным образом.
Подскажите как это сделать.
и как записать правильно такой массив?

korob2001

Дата 27.4.2005, 15:57 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Так получаешь число от 0 до 1.

Код


#!/usr/bin/perl -w
use strict;
my $num  = rand();
print $num;

А так строку:

Код


#!/usr/bin/perl -w
use strict;
my @simbols = ( 0..9, 'a'..'z', 'A'..'Z', '`', '~', '!', '@', '#', '$',
                '%', '^', '&', '*', '(', ')', '_', '+', '-', '=', '[',
                ']', '{', '}', ';', '\'', ':', '\"', ',', '.', '/', '<', '>',
                '?', '\\', '|' );
my $col = 12; # Кол-во символов
my $str = join("", @simbols[ map { rand @simbols }( 1..$col ) ] );

print $str;

Удачи

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

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Гость_Сергей

Дата 28.4.2005, 10:01 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Большое спасибо.

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