Форум Рідного Міста

CGI (Perl) - > відіслати файл на сервер

Андрій Моравський - 16-11-2005 у 14:16

Форумчани хелп... пробую зробити дещо на зразок галереї... повстало питання: скрипт для завантаження картинок. тобто... з боку HTML щось на зразок такого:

Код:

<FORM action="addpict.cgi" ...>
<INPUT type="file" ... >
<INPUT type="submit" ..>
</FORM>


а от з боку CGI (Perl) .... PHP не пропонуйте бо не знаю...... що з боку Перла має бути.... Прошу вас працездатний код Perl та HTML... бо вже товчуся мало не головою об стінку... :( Клано було б з коментарями у "критичних" місцях...

Юзаю SmallHTTP Server, Perl 5.6.1

Дякую.

Громов Сергій - 16-11-2005 у 14:50

А я власне на РНР з тим борюся, хтів запропонувати - ну якщо не треба, то не треба.

Варто заглянути на форуми по ПЕРЛу, і там запитати.

Андрій Моравський - 16-11-2005 у 15:03

а на які власне.. форуми.. може пан підкаже.. ? :-)

ну я не вірю що такого ніхто не користав... хтось має ж рішення.. тим паче що в книжках про то є.. але файну книжкупо CGI я загубив і не можу найти ні вдома ні в просторах мережі... :-(

Громов Сергій - 16-11-2005 у 15:13

Може "гугля" підкаже ?

Андрій Моравський - 16-11-2005 у 18:37

А все ж.... мо хто і поможе???? :-(

Андрій Пелещишин - 16-11-2005 у 19:35

Перегляньте можливості пакету CGI
Зараз на всткидку можу навести такий приклад

Код:

#!/usr/bin/perl

use CGI qw/:all/;
use File::Copy;
use File::Basename;

$q = new CGI;

copy($f=$q->param('filer'),basename($f));

print $q->header;
print $q->start_html("File Uploader");

print $q->p ("Your form submitted");

print $q->end_html();


відповідно має бути HTML-форма, яка привязується до скріпта

До Сергія Громова
Цитата:
Варто заглянути на форуми по ПЕРЛу, і там запитати.

Я би просив таке не писати. Або давай точний лінк, або не відсилай людину з Форуму

Громов Сергій - 17-11-2005 у 11:14

Цитата:

Цитата:
Варто заглянути на форуми по ПЕРЛу, і там запитати.

Я би просив таке не писати. Або давай точний лінк, або не відсилай людину з Форуму


Одначе я по РНР міг би помогти, а якщо ніхто більше не зголосився - :rolleyes: ....

Роман Ромашка - 31-1-2006 у 17:42

Код:

my $fname = param('file_name');

my $fh = upload( $fname );
binmode $fh


Але це все марно буде якщо в формі не буде властивості ENCTYPE:

ENCTYPE="multipart/form-data"

У мене так працює.

Андрій Моравський - 31-1-2006 у 17:54

П.Роман Ромашка...

можете робочий фрагмент коду з HTML і Perl'у(скрипта що приймає файл)... кинути мені сюди...
ДЯКУЮ!

Роман Ромашка - 1-2-2006 у 14:01

Киньте мені у2у свій мейл. І ввечері скину весь скрипт.
Але там є звертання до БД PGSQL. Тому запустити навряд чи вдасться.