ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     31 Mar 2000  18:37:38
 To : All
 Subject : Re: Random
 -------------------------------------------------------------------------------- 
 

 Andrej Kartashov wrote:
 
 > У меня дpугой вопpос, нужно pандомить ID с 4 цифpами пpичем, не менее
 > указанного числа, ну то есть если указываешь 0300, чтобы генеpиpовались
 > числа не ниже тpехсот.
 
 sub rand_between($$) {
     return int($_[0]+rand($_[1]-$_[0]));
 }
 
 Будет выдавать числа >= первый аргумент и < второй.
 
 > Или еще лучше, если бы числа добавлялись
 > последовательно, напpимеp, 0301, 0302, 0303 и так далее...
 
 А причем тут "рандомить"?
 
 my $saved_value;
 sub get_next {
     $saved_value=$_[0] if defined $_[0];
     return ++$saved_value;
 }
 
 и далее:
 
 print get_next(300),"\n";
 print get_next(),"\n";
 print get_next(),"\n";
 print get_next(),"\n";
 print get_next(),"\n";
 Андрей
 
 P.S. не проколись, на том что числа начинающиеся с цифры 0
 трактуются Перлом как восьмеричные.
 --- ifmail v.2.15dev4
  * Origin: Chelindbank (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Random   Alex Efros   29 Mar 2000 06:45:26   Random   Andrej Kartashov   31 Mar 2000 18:27:02   Re: Random   Paul Kulchenko   31 Mar 2000 20:39:13   Re: Random   Andrey Sapozhnikov   31 Mar 2000 18:37:38   Re: Random   Nikolay Pichtin   05 Apr 2000 22:16:32   Random   Anthony Dragunov   07 Apr 2000 12:55:52   Re: Random   Artem Chuprina   07 Apr 2000 16:32:09   Random   Sly Golovanov   07 Apr 2000 12:52:33   Re: Random   Pavel Kurnosoff   07 Apr 2000 15:04:00