>Все зависит от того - фиксированный у вас список файлов или случайный.
>Если фиксированный (типа антилич) - то хэш:
>
>%Files=(
> '00001'=>'00001|word.doc',
> ....,
> );
>А при запросе использовать его так:
>my $file=param('file');
>if(exists $Files{$file}) {
>print redirect(-uri=>$Files{$file});
>} else {
>print header();
>print "File not found\n";
>}
>
>Если не фиксированный, то забирайте список файлов в хэш (как и в
>предыдущем примере) через чтение каталога, в качестве ключей используйте только цифры
>отделяя их из имени файла например так:
>
>$file=~s/[^0-9]+//;
да нет как мне список файло в забирать я знаю, я говорю что у меня лежат файлы в каталоге с такими именами 000001 000002 000003 000004 XXXXXX и лежит есть список файл|text.txt на примера это так
в каталоге
000001
в файле
000001|text.txt
когда я делаю вот так
print redirect(-uri=>'000001'); то предлагает сохранить файл с таким именем "000001", это всё понятно, я спрашиваю как мне сделать так чтобы файлы у меня лежали в каталоге с именами XXXXXX, а когда выскакивало окошко для сохранения файлов, то имя файла в виде XXXXXX, заменялось на имя в списке, такое возможно или нет? если меня кто-то не поня, то скажите я ещё раз обьясню, что и как :D
Вариант для распечатки
WEB технологии (Public)
(ok) on
26-Апр-05, 15:58 (MSK)
