Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Подскажите, как реализовать  (Прочитано 5897 раз)
0 Пользователей и 1 Гость смотрят эту тему.
perl6
Помогающий

ru
Offline Offline

« : 16-01-2011 03:30 » 

 :)Приветствую всех... Возникла вот какая задача: на перле осуществляется генерация набора символов русского и английского алфавита и набора цифр, к примеру так
Код:
$1 = 'aswdeffdffdf' ;
$2 = 'ыфвываава' ;
$3 = '1247842' ;
Непонятно вот, что, как мне рандомно выводить любую переменную из этих трёх, иными словами, исходная переменная должна быть равно любой из этих переменных? Может у кого возникнут непонятки относительно смысла такого занятия, а смысл вот в чем, в каждой переменной храниться собственная сгенерированная комбинация, вот мне и надо рандомно выводить эту комбинацию, т.е., выбирать от $1 до $3. Заранее спасибо за любую подсказку... Улыбаюсь
Записан
Вад
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #1 : 16-01-2011 08:29 » 

Я уже подзабыл перл, но не проще будет положить все строчки в массив и юзать rand в духе:
Код: (Perl)
@strings = ($1, $2, $3);

$rand_string = $strings[int(rand(3))];
?
« Последнее редактирование: 17-01-2011 06:55 от McZim » Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #2 : 16-01-2011 08:55 » 

пусть меня поправят...

Код: (Perl)
$rand_string = int(rand(3));

$rand_var =$$rand_string
« Последнее редактирование: 16-01-2011 14:36 от McZim » Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Вад
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #3 : 16-01-2011 18:00 » 

Sla, твой вариант круче, но как-то wtf-нее, что-ли Улыбаюсь
Записан
perl6
Помогающий

ru
Offline Offline

« Ответ #4 : 17-01-2011 05:01 » 

Спасибо большое
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines