ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Mikhailov 2:5020/400 20 Apr 2002 12:19:20
To : Sadretdinova Nelly
Subject : md5
--------------------------------------------------------------------------------
привет
>каким образом можно сгенерировать уникальный код при условиях:
>
>чтобы его было трудно подобрать наугад (поэтому auto_increment не подходит)
>желательно числовой - чтобы по нему можно было быстро осуществлять поиск в
>базе
вот, например, вывод 10-ки случайных целых чисел:
use Digest::MD5 qw(md5_hex);
for (0..9) {
$seed=md5_hex(rand(time));
$seed=~tr|abcdef|123456|; # ты хотела тока цифры :)
print $seed."\n";
}
--- ifmail v.2.15dev5
* Origin: WEBPlus Ltd. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
