Сообщения

1

Perl / Чтение директории

« : 09 Апреля 2003, 15:05:11 »

Всем спасибо, сделал

2

Perl / Чтение директории

« : 08 Апреля 2003, 16:54:47 »

К примеру? мне ничего в голову не приходит...

3

Perl / Чтение директории

« : 08 Апреля 2003, 14:46:00 »

Дык, вот я и спрашиваю, как сделать вывод картинок НЕ из рутовой папки, не показываю при этом пользователю пути...

4

Perl / Чтение директории

« : 08 Апреля 2003, 14:19:42 »

Возникла проблема картинки находятся ЗА htmlroot, поэтому приходится делать следующее:

Код: [Выделить]

opendir(DIR, "$ENV{DOCUMENT_ROOT}/../files/img/$sel") || die "$!";
@pic=grep{!/\\A\\.\\.?\\z/} readdir(DIR);
closedir(DIR);

foreach (@pic){
if (/^[0-9]{3,5}\\.jpg$/){
open(JPG, "$ENV{DOCUMENT_ROOT}/../files/img/$sel/$_") || die "$!";
binmode(JPG); binmode(STDOUT);
while(read(JPG, $buff, 8*2**10)){
print STDOUT $buff;
}
}
}

но на страницу выходит только одна картинка, про хтмл я вообще молчу

5

Perl / Чтение директории

« : 07 Апреля 2003, 17:45:03 »

Подскажите, как лучше сделать. Задача открыть каталог, в котором дочертиков картинок формата xxx.jpg bxxx.jpg, где xxx числа. нужно вставить на страничку все картинки типа xxx.jpg, и сделать с них ссылки на bxxx.jpg.

Больше всего меня интересует хранение картинок в хэше? как реализовать? если в массиве.... в общем подскажите