Такая проблема:

Код

#!perl opendir CATALOG, "/foto"; @dat = readdir CATALOG; close CATALOG; $url = "/foto"; print "Content-type: text/html\n\n"; &ph($url); sub ph{ my($url) = @_; for($i=3;$i<$#dat;$i++){  $ps = $i-2; print <<ENDOF; <a href = "javascript:location$i()"><img width = "200"  src ='$url/$dat[$i]' alt = 'photo number $ps' border = 0></a> <script language = "JavaScript"> <!-- hide function location$i(){ myWin = open('','clrscr$i','width = 400, height = 300, toolbar = no, menubar = no, status = no'); myWin.document.open(); myWin.document.write("<html><head><TITLE>Photo № $ps</TITLE></head><div id = '$i' style = 'position:absolute;top:0;left:0;z-index:1'><img width = 400 height = 300 src = $url/$dat[$i]></div></html>"); myWin.document.close(); } //--> </script> ENDOF } }

Это исходный код простенькой галлереи. В редакторе DzSoft Perl Editor всё работает нормально. А в браузере - через раз. А при добавлении новых картинок в каталог "foto". Это дело вообще работать перестаёт. Почему?

Rezzonans учимся писать сразу правильно:

Код

#!perl -w use strict; # прагма, задает ограничения и правила, использовать всегда! use CGI qw(-no_xhtml :standard); # очень важный модуль, необх. знать каждому use CGI::Carp qw(fatalsToBrowser);  # ловит ошибки и выводит их в браузер use File::Spec; # пригодится для обработки файлов my $url = "http://".http('HTTP_HOST').'/photo'; # url-путь к папке photo  # JavaScript, немного переделанный, но он НЕ работает.... my $js = <<JS; function location(i, url) {  myWin = open('', 'clrscr' + i,'width = 400, height = 300, toolbar = no, menubar = no, status = no');  myWin.document.open();  myWin.document.write("<html><head><TITLE>Photo ¹ i</TITLE></head><div id="i" style="position:absolute;top:0;left:0;z-index:1"><img width="400" height="300" src="url"></div></html>");  myWin.document.close(); } JS # открытие папки с фотками, можно указать полный или относительный путь opendir DIR, './../photo' || die 'Error'; my @data = readdir DIR; closedir DIR; # удаление из массива ссылки на корень (.) и ссылки на предыдущую директорию (..) @data = File::Spec->no_upwards(@data); # удаление лишних файлов (не jpg и bmp) @data = grep { $_ =~ /\.jpg/i ||  $_ =~ /\.bmp/i} @data; # заголовок страницы print header(-charset => 'windows-1251'),       start_html(-title  => 'Photo',                -script => {'code' => $js, 'language' => 'JavaScript'} ); &get_photo($url, \@data) if @data; print end_html(); sub get_photo($$) {     my ($url, $data) = @_;     for (my $i=0; $i<@{$data}; $i++) {         my $photo_url = $url.'/'.$data->[$i];         print a({-href => "javascript: location($i, $photo_url)"},              img({-src => $photo_url, -width => 200, -alt => "photo number $i", border => 0}) );     } }

Если не понятно как работать с CGI, то читай документацию, можешь переделать на обычные теги.

Вопрос зачем ты цикл начинал с трех? зачем для каждой картинки своя JS-функция?

У меня папка photo доступна по http://localhost/photo, скрипт http://localhost/cgi-bin/photo.cgi.

sharq, пасиб большое, щас попробую Цикл я начинал с трёх, потому как первые два элемента массива - это: "." и ".." Соответственно это не картинки, поэтому-то и решил сделать так. А кстати, хорошую документауию по cgi не подскажешь где найти? В частности меня модуль CGI нитересует, ток на русском хотелось бы?

Слушай, спасибо, ты меня здорово выручил! Но вот что я заметил. Слующая строка осуществляет как бы заполнение динамического окна, созданного явой, это ты я думаю знаешь:

Код

myWin.document.write("<html><head><TITLE>Photo ? i</TITLE></head><div id="i" style="position:absolute;top:0;left:0;z-index:1"><img width="400" height="300" src="url"></div></html>");

Эту строку выдаёт мне браузер. Проблема в чём, обрати внимание на то, что открывные кавычки - двойные myWin.document.write("....."). Собственно так и длолжно быть, но то что внутри этих кавычек

<html><head><TITLE>Photo ? i</TITLE></head><div id="i" style="position:absolute;top:0;left:0;z-index:1"><img width="400" height="300" src="url"></div></html>

тут кавычки-то тоже двойные, вот и не работает функция. Тут надо внутри ("....") двойные кавычки заменить на опостровы, либо поставить перед ними \". А так она работать не будет. Ну это я на первый взгляд заметил. Может ещё чего есть

Rezzonans

Цитата(Rezzonans @ 12.7.2005, 01:35)

А кстати, хорошую документауию по cgi не подскажешь где найти? В частности меня модуль CGI нитересует, ток на русском хотелось бы?

Читай важные темы форума, там ссылка на pdf есть! Вот она.

Цитата

тут кавычки-то тоже двойные

Да это точно! Нужно строку тогда оформлять не в виде <<JS;...JS, а в виде "...". Внутри строки используй \".

Если не будет работать, привиде сгенерированный скриптом сценарий JavaScript, посмотрим или отошлем к соответствующему форуму.