|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artur Penttinen 2:5020/400 07 Aug 2000 10:51:12 To : All Subject : Re: Генерирование числа с буквами --------------------------------------------------------------------------------
On Sun, 6 Aug 2000, Marsel Kirsanov wrote:
> From: Marsel Kirsanov <Marsel.Kirsanov@p91.f10.n5023.z2.fidonet.org>
> Newsgroups: fido7.ru.perl
> X-Comment-To: All
> Subject: Генерирование числа с буквами
> Date: Sun, 06 Aug 2000 17:05:01 +0400
> Organization: My love moved down.
>
> Добрый вечер, All !
>
> Помогите осуществить:
> #/usr/bin/perl
> print "Content-type: text/html\n\n";
> print "Ваш секртеный код - $code\n";
> А вот как заставить сгнерировать случайный код - не знаю, hэlp, plz.
$code = ("a","b",...)[rand()%"length of array"]
perldoc -q random
WBW, Artur
--
Если жизнь - театр, то я хочу антракт и в буфет.
--- ifmail v.2.15dev5
* Origin: Gamma NNTP server Moscow Russia (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/11726da59c5f8.html, оценка из 5, голосов 10
|