Народ, есть такой трабл:
Нужно загнать получаемую картинку из Web-формы в базу, а в последствии - вывести ее для браузера. На PHP это все получается, но хотелось бы сделать это все на Perl-е.
Основной трабл - в "правильной" загонке в базу и как формировать хедер и делать вывод полученных данных для браузера

• Perl + MySQL,trdmitry, 12:06 , 24-Июн-03
  • Perl + MySQL,Dr. Nebula, 02:11 , 25-Июн-03

>Народ, есть такой трабл:
>Нужно загнать получаемую картинку из 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, выбирать по критерию...
законнектится... и немного знание перла.

>вывод из базы
>
> # тут нужно указать че за картинка. gif jpeg и т.д.
>можно хранить в БД расширение для каждой картинки
>print "Content-type: image/gif\n\n";
>
>$data = $dbh->selectrow_array("select image_data from pics");
>print $data;
>
>
>Естественно нужно создать для каждой картинки в БД свой id, выбирать по
>критерию...
>законнектится... и немного знание перла.

Тенькс, но чуток уточню, что хотел спросить - имеется скрип, который отображает некую текстовую информацию из базы, а следовательно уже имеется строка
print "Content-type: text/html\n\n";
Насколько я понимаю - следующую такую строку но уже с image/jpg браузер не заметит... Или есть написать
print "<img src=\"$data\">
будет показывать изображение?