форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Random в Perl"
Сообщение от Hostik (??) on 04-Июл-05, 12:38  (MSK)
Доброго времени суток, подскажите плиз - требуется в перле волучить рандомный текст из 6 знаков типа "rj84nv", как это можно реализовать?
	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Random в Perl"
Сообщение от naquad (??) on 04-Июл-05, 12:46  (MSK)
>Доброго времени суток, подскажите плиз - требуется в перле волучить рандомный текст >из 6 знаков типа "rj84nv", как это можно реализовать? Решение в три секунды: [root@TheNaquad ~]# perl -e 'my @table=('A'..'Z','1'..'9','a'..'z');$str="";for($i=0;$i<20;$i++){$str.=$table[int(rand(scal$r@table))]};print $str'
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "Random в Perl"
	Сообщение от naquad (??) on 04-Июл-05, 12:47  (MSK)
	>>Доброго времени суток, подскажите плиз - требуется в перле волучить рандомный текст >>из 6 знаков типа "rj84nv", как это можно реализовать? > >Решение в три секунды: >[root@TheNaquad ~]# perl -e 'my @table=('A'..'Z','1'..'9','a'..'z');$str="";for($i=0;$i<20;$i++){$str.=$table[int(rand(scal$r@table))]};print $str' Глюки konsole: scal$r@table)) - scalar(@table)
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "Random в Perl"
	Сообщение от Hostik (??) on 04-Июл-05, 13:04  (MSK)
	>>>Доброго времени суток, подскажите плиз - требуется в перле волучить рандомный текст >>>из 6 знаков типа "rj84nv", как это можно реализовать? >> >>Решение в три секунды: >>[root@TheNaquad ~]# perl -e 'my @table=('A'..'Z','1'..'9','a'..'z');$str="";for($i=0;$i<20;$i++){$str.=$table[int(rand(scal$r@table))]};print $str' > > >Глюки konsole: scal$r@table)) - scalar(@table) Спасибо все ок!
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "Random в Perl"
Сообщение от allez (ok) on 04-Июл-05, 12:52  (MSK)
*
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ]

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.