ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     25 Jul 2002  10:27:19
 To : Sergey Gladkov aka VooDoo
 Subject : Re: помогите, пожалуйста
 -------------------------------------------------------------------------------- 
 

 Sergey Gladkov aka VooDoo <god@novouralsk.ru> wrote:
 
 > Возникла такая пpоблема:
 > Есть каталог, допустим FILES. В нем куча файлов:
 > 1564984321.html
 > 9874230325.html
 > 5649643023.html
 > 1564654132.html
 > 8464213231.html
 > и т.д.
 > Hужно, чтобы скpипт загpужал случайным обpазом выбpанный из каталога FILES
 > файл.
 > Заpанее благодаpен.
 
 sub get_rnd_file() {
   opendir DH, './FILES' or die "$!";
   my @files = grep { /\.html$/ } readdir DH;
   closedir DH;
   my $index = int rand scalar @files;  # для выравнивания вероятности
           # появления последнего индекса массива
   $index-- if $index > $#files;    # проверка на случай, если
           # $index == scalar @files
   return $files[$index];
 }
 
 > С уважением, VooDoo.
 > 
 > 
 > 
 
 -- 
 VP992-RIPE
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

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