588_________________Часть V. Разработка программ и написание скриптов
решили написать CGI-скрипт, который будет показывать GIF-изображение каждый раз при исполнении скрипта браузером.
Первой строчкой кода, которую необходимо вам записать, будет являться комментарий специального вида, содержащий путь доступа к интерпретатору языка записи скрипта, используемого для этой программы. В нашем случае — это язык PERL. Следом за символом комментария # должен располагаться восклицательный знак !, а затем путь. Специальная комбинация символов #! в первой строчке файла является стандартным способом указания серверу того интерпретатора, который будет использоваться для выполнения скрипта. Причиной того, что для указания местоположения интерпретатора скрипта используется специальный вид комментария, является следующее. Дело в том, что UNIX-серверы распознают такую строчку кода, а серверы других систем используют альтернативные методы определения местоположения интерпретатора. Так как эта строчка кода начинается с символа #, являющегося стандартным символом комментария для языка PERL, то ее наличие не вызовет никаких проблем при использовании серверов систем, отличных от UNIX.
( Совет)
Необходимо убедиться в том, что вы записали корректный путь к интерпретатору скрипта.
#!/usr/local/bin/peri
В следующей строке кода необходимо присвоить переменной $gif значение полного пути к изображению, которой будет показано.
$gif= "/file/path/your.gif";
Теперь пришло время указать серверу, что от скрипта будет получено изображение, которое необходимо показать в браузере клиента. Это выполняется записью строчки, содержащей MIME-тип. Оператор print передает информацию, заключенную между символами кавычек, серверу. Каждое сочетание символов \п, которые можно увидеть в приводимой далее строке, добавляет к передаваемому тексту стандартные символы возврата каретки и перевода строки. В данном случае это обеспечивает передачу пустой строки, которая должна располагаться после информации о MIME-типе. Пустая строка информирует сервер об окончании MIME-заголовка и начале основного блока информации.
print "Content-type:image/gif\n\n";
Следующая строка кода создает файловую переменную IMAGE, которая формирует ссылку из скрипта на файл, имя которого содержится в определенной ранее переменной $gif.
open(IMAGE,$gif);