|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Pavel Ammosov 2:5020/400 17 Dec 2001 21:39:46
To : Vasiliy Misnik
Subject : Re: создание ссылок
--------------------------------------------------------------------------------
Следи за длиной строк в своих письмах, 160 символов -- это просто не в какие
ворота не лезет.
Vasiliy Misnik wrote:
VM>Задача: посетитель через форму отправляет статью, текст
VM>обрабатывается, сохраняется в файл на диске, на какой-то странице
VM>добавляется соответствующая ссылка.
VM>Вопрос: каким образом генерить имена файлов, чтобы в конце концов не
VM>оказаться в тупике и не огрести глюков?
VM>Должно же какое-то стандартные общепринятое решение.
use Digest::MD5 qw(md5_hex);
my $filename = md5_hex($article . $time . $author_name);
$article - текст статьи,
$time - результат time(),
$author_name - имя автора.
В результате ты получишь строку типа
816fd50d149ccf9308781ab266d30bf0
которая будет гарантированно уникальна, если только твой
автор в одну секунду не запостит две совершенно одинаковых
статьи.
--
Павел Аммосов, email: apavel@aha.ru.
Русский FAQ по perl и etc: http://isabase.philol.msu.ru/~apavel/ruperl/
Английский: http://www.perldoc.com/perl5.6/pod/perlfaq.html
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
