The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]




Версия для распечатки Пред. тема | След. тема
Новые ответы [ Отслеживать ]
Perl + MySQL, !*! Dr. Nebula, 23-Июн-03, 18:31  [смотреть все]
  • Perl + MySQL, !*! trdmitry, 12:06 , 24-Июн-03 (1)
    >Народ, есть такой трабл:
    >Нужно загнать получаемую картинку из 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, выбирать по критерию...
    законнектится... и немного знание перла.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру