|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 18 Dec 2001 11:22:22
To : Pavel Ammosov
Subject : Re: создание ссылок
--------------------------------------------------------------------------------
Pavel Ammosov <apavel@isabase.philol.msu.ru> wrote:
>
> use Digest::MD5 qw(md5_hex);
- my $filename = md5_hex($article . $time . $author_name);
+ my $filename = md5_hex($article . $time . $$ . $author_name);
> $article - текст статьи,
> $time - результат time(),
+ $$ - perldoc perlvar,
> $author_name - имя автора.
>
> В результате ты получишь строку типа
> 816fd50d149ccf9308781ab266d30bf0
> которая будет гарантированно уникальна, если только твой
> автор в одну секунду не запостит две совершенно одинаковых
> статьи.
В данном случае таки гарантированно.
--
VP992-RIPE
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
