>Народ, есть такой трабл:
>Нужно загнать получаемую картинку из Web-формы в базу, а в последствии -
>вывести ее для браузера. На PHP это все получается, но хотелось
>бы сделать это все на Perl-е.
>Основной трабл - в "правильной" загонке в базу и как формировать хедер
>и делать вывод полученных данных для браузера
в мускле
mysql>create table pics(image_data blob);
на upload файла из браузера
use CGI;
$cgi = new CGI;
.... some code ...
$image_url = $cgi->param('imageurl');
while (my $bytes_read=read($image_url,$buffer,1024)){
$data .=$buffer;
}
$dbh->do("insert insert into pics (image_data) values('$data')");
вывод из базы
# тут нужно указать че за картинка. gif jpeg и т.д. можно хранить в БД расширение для каждой картинки
print "Content-type: image/gif\n\n";
$data = $dbh->selectrow_array("select image_data from pics");
print $data;
Естественно нужно создать для каждой картинки в БД свой id, выбирать по критерию...
законнектится... и немного знание перла.