Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Случайные числа!?

Автор: Nookie 21.7.2005, 23:02

есть ли в perl функци случайных чисел!??

Автор: korob2001 22.7.2005, 03:22

Случайное число в диапазоне от 0 до 1:

Код


#!/usr/bin/perl -w
use strict;
print rand();

Случайное число от 1 до 100:

Код


my $num = int(rand()*100)+1;

Думаю пояснений здесь не нужно, но всё же если что-то не понятно, пиши.

Автор: sharq 22.7.2005, 11:25

Код


srand();

my $rand = int rand(100);

Автор: Sadok 23.7.2005, 12:40

sharq
srand() вроде не нужен в последних версиях. он разве автоматом не вызывается?

Автор: sharq 23.7.2005, 14:57

Sadok вроде да, но я это так по старинки пишу. smile

Автор: Anarki 27.7.2005, 13:31

Код


int( rand ($MAX-$MIN+1) ) + $MIN

случайное число в [$MIN,$MAX]

Автор: Psixolog 30.10.2005, 13:49

Код


#!/usr/bin/perl 

$random=int(rand(4))+1;
print "$random\n";

Будет выводит одно из чисел от 1 до 4 # 1,2,3 или 4

Также можно поменять

Код


#!/usr/bin/perl 

$random=int(rand(59))+25;
print "$random\n";

Уже будет выводить другие числа

Ещё можно использовать как случайный вывод картинки или текста

Код


$random=int(rand(4))+1;
print ('<img src="images/'.$random.'.gif" border="0">');

Автор: Usya 30.10.2005, 22:06

Psixolog, а ты не смотрел дату последнего сообщения?

smile

Автор: korob2001 2.11.2005, 20:41

М	Тема закрыта