The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

Генерация случайной последовательности символов на Perl
sub sys_true_rand {
   my ($num_char) = @_; # Число символов в качестве параметра.                       
   my $dev_line;
   my $rand_line = "";
   open(UR,"</dev/urandom") || die "Cam't open /dev/urandom"";
   do {
        read (UR, $dev_line, 4096);
        $dev_line =~ s/[^\w\d]//g;
        $rand_line .= $dev_line;
   } until (length($rand_line) >= $num_char);
   close(UR);
   return substr($rand_line,0, $num_char);
}
 
22.01.2003
Ключи: perl / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Полезные подпрограммы на Perl / Работа с сетью и IP адресами на Perl

 Добавить комментарий
Имя:
E-Mail:
Заголовок:
Текст:




Спонсоры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2022 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру