The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Random в Perl"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

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

 Оглавление

  • Random в Perl, naquad, 12:46 , 04-Июл-05, (1)  
    • Random в Perl, naquad, 12:47 , 04-Июл-05, (2)  
      • Random в Perl, Hostik, 13:04 , 04-Июл-05, (4)  
  • Random в Perl, allez, 12:52 , 04-Июл-05, (3)  

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

1. "Random в Perl" 
Сообщение от naquad emailИскать по авторуВ закладки(??) 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 emailИскать по авторуВ закладки(??) 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 ]
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру