Огромное спасибо, cj, за грамотный и оперативный совет. К своему стыду, я так и не смог им воспользоваться, т.к. не знаю, как установить модули для Perl.
ОС: Windows 98
Установлен: ActivePerl 5.60.0 Build 613 в каталог e:\\usr\\local\\bin
При установке он прописал в autoexec.bat путь e:\\usr\\local\\bin\\
Как пытался установить (модули DBI и Symbol):
1). Скачал из CPAN модуль DBI-1.14.tar.gz и распаковал его.
Запустил команду
perl makefile.PL
скрипт запустился, немного подумал, и стал ругаться, что не может найти Perl в каталоге e:\\usr\\local\\bin, хотя он там есть.
2). Пробовал загрузить автоматически из интернета с помощью ppm.bat
подключился к Интернету;
после ввода search Symbol
ppm.bat стал ругаться:
HTTP POST failed: 500 (Unknown error, <> line 1,), in SOAP method call. Content of response: at E:/USR/local/site/lib/PPM/SOAPClient.pm line 222, хотя вроде при установке я его настраивал;
3). Пробовал установить с помощью команды perl -MCPAN -e shell,
Ругается на то, что не может найти зеркало CPAN\'а.
Не нашел: nmake, gzip, lynx, ncftget, ncftp,
Кончилось тем, что скачал модули DBI и DBD::Mysql с сайта ActivePerl в формате zip, и они нормально установились и работают. А вот Symbol у меня не установлен, а на сайте Active Perl его нет.
Поэтому попробовал просто считать картинку и проверить так:
#!/usr/bin/perl -w
open(IMAGE, "art0029.gif");
binmode(IMAGE);
my $content = "";
while(read(IMAGE, my $buffer, 8192))
{
$content .= $buffer;
}
close(IMAGE);
print "Content-Type: image/gif
";
print $content;
exit;
Работает, но некорректно: или обрезает картинку, или вообще искажает до неузнаваемости. Подскажите, пожалуйста, как быть?
Спасибо!