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

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

ru
Offline Offline

« : 04-06-2010 22:50 » 

Есть в великом и могучем (для кого то) яваскрипт такая функция Math.random, которая генерирует случайное число от нуля до единицы, ну т.е. 0 ≤ Math.random() < 1
Собственно, вопрос, как такое же сделать на перле, именно в таком же виде, например,

0.20031031928360865
0.5010562985459046
0.09968024957857369

Заранее спасибо за помощь. Скромно так...
Записан
Finch
Спокойный
Администратор

il
Offline Offline
Пол: Мужской
Пролетал мимо


« Ответ #1 : 05-06-2010 06:37 » 

xzfrqtn7, А перловый random в каком диапазоне генерирует?
Записан

Не будите спашяго дракона.
             Джаффар (Коша)
xzfrqtn7
Интересующийся

ru
Offline Offline

« Ответ #2 : 05-06-2010 15:57 » 

В каком? :Улыбаюсь
Записан
Finch
Спокойный
Администратор

il
Offline Offline
Пол: Мужской
Пролетал мимо


« Ответ #3 : 05-06-2010 16:02 » 

Первая же ссылка в гугле http://perlmeme.org/howtos/perlfunc/rand_function.html
Цитата
The rand() function is used to generate random numbers. By default it generates a number between 0 and 1, however you can pass it a maximum and it will generate numbers between 0 and that number.
Записан

Не будите спашяго дракона.
             Джаффар (Коша)
xzfrqtn7
Интересующийся

ru
Offline Offline

« Ответ #4 : 05-06-2010 16:23 » 

Спасибо, разобрался... Теперь, вот хотел бы узнать, вот код...
Код:
#!/usr/bin/perl -w

use LWP::UserAgent;

$| = 1;

$random = rand(1);

my $ua = LWP::UserAgent->new;

$ua->agent('Mozilla 5.0);
$ua->default_header('Accept' => "text/html");
$ua->default_header('Accept-Language' => "ru");
$ua->default_header('Accept-Charset' => "windows-1251");
$ua->default_header('Referer' => "http://somesite.ru/");

$ua->get('http://mysite.ru&rnd=<RND>');

Как вставить сгенерированное рандомное число вместо <RND> ?
Записан
Sla
Команда клуба

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

WWW
« Ответ #5 : 05-06-2010 17:26 » 

способы как сказать <Hello World>

   printf("Hello world\n");
   printf("%s\n",'Hello world');
   print "Hello World", "\n"
$hw="hello World"; print "$hw\n";
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
xzfrqtn7
Интересующийся

ru
Offline Offline

« Ответ #6 : 05-06-2010 19:40 » 

Это мне понятно, а как в моем случае сделать?  Если так
Код:
$ua->get($url, $r);

то добавляется, как заголовок, а нужно в конец урла запихнуть...
Записан
RXL
Технический
Администратор

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

WWW
« Ответ #7 : 06-06-2010 10:32 » 

xzfrqtn7, учи язык! Не знаешь даже операторов...

Почитай про оператор конкатенации строк - ".".
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
xzfrqtn7
Интересующийся

ru
Offline Offline

« Ответ #8 : 06-06-2010 18:11 » 

xzfrqtn7, учи язык! Не знаешь даже операторов...

Почитай про оператор конкатенации строк - ".".

Да времени нету, вот что... Всю жизнь учись и дураком подохнешь... Приходится, вот так вот, как в школе, потом в техникуме, наскоком брать и выкручиваться из положения... Жаль, что в институте так не получается...

Спасибо за подсказку, разобрался с оператором конкатенации и все заработало, лишний раз убеждаюсь в том, что перл, это сила.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines