Андрій Моравський
Академік
Повідомлень: 474
Зареєстрований: 17-8-2005
Місто: Львів
Нема на форумі
|
|
CGI (Perl) - > відіслати файл на сервер
Форумчани хелп... пробую зробити дещо на зразок галереї... повстало питання: скрипт
для завантаження картинок. тобто... з боку HTML щось на зразок такого:
| Код: |
<FORM action="addpict.cgi" ...>
<INPUT type="file" ... >
<INPUT type="submit" ..>
</FORM>
|
а от з боку CGI (Perl) .... PHP не пропонуйте бо не знаю...... що з боку Перла має бути....
Прошу вас працездатний код Perl та HTML... бо вже товчуся мало не головою об стінку...  Клано було б з коментарями у "критичних"
місцях...
Юзаю SmallHTTP Server, Perl 5.6.1
Дякую.
|
|
|
Громов Сергій
Академік
Повідомлень: 568
Зареєстрований: 27-1-2003
Місто: Львів кут площі Ринок
Нема на форумі
Настрій: Вже краще
|
|
А я власне на РНР з тим борюся, хтів запропонувати - ну якщо не треба, то не треба.
Варто заглянути на форуми по ПЕРЛу, і там запитати.
|
|
|
Андрій Моравський
Академік
Повідомлень: 474
Зареєстрований: 17-8-2005
Місто: Львів
Нема на форумі
|
|
а на які власне.. форуми.. може пан підкаже.. ? :-)
ну я не вірю що такого ніхто не користав... хтось має ж рішення.. тим паче що в
книжках про то є.. але файну книжкупо CGI я загубив і не можу найти ні вдома ні в
просторах мережі... :-(
|
|
|
Громов Сергій
Академік
Повідомлень: 568
Зареєстрований: 27-1-2003
Місто: Львів кут площі Ринок
Нема на форумі
Настрій: Вже краще
|
|
Може "гугля" підкаже ?
|
|
|
Андрій Моравський
Академік
Повідомлень: 474
Зареєстрований: 17-8-2005
Місто: Львів
Нема на форумі
|
|
А все ж.... мо хто і поможе???? :-(
|
|
|
Андрій Пелещишин
Адміністратор
Повідомлень: 9191
Зареєстрований: 19-6-2002
Місто: Львів, Україна
Нема на форумі
Настрій: Настрій не вказаний
|
|
Перегляньте можливості пакету 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-форма, яка привязується до скріпта
До Сергія Громова
| Цитата: | | Варто заглянути на форуми по ПЕРЛу, і там запитати. |
Я би просив таке не писати. Або давай точний лінк, або не відсилай людину з Форуму
|
|
|
Громов Сергій
Академік
Повідомлень: 568
Зареєстрований: 27-1-2003
Місто: Львів кут площі Ринок
Нема на форумі
Настрій: Вже краще
|
|
| Цитата: |
| Цитата: | | Варто заглянути на форуми по ПЕРЛу, і там запитати. |
Я би просив таке не писати. Або давай точний лінк, або не відсилай людину з Форуму
|
Одначе я по РНР міг би помогти, а якщо ніхто більше не зголосився -  ....
|
|
|
Роман Ромашка
Академік
Повідомлень: 752
Зареєстрований: 22-11-2005
Місто: Київ
Нема на форумі
Настрій: Ідеальний 
|
|
| Код: |
my $fname = param('file_name');
my $fh = upload( $fname );
binmode $fh |
Але це все марно буде якщо в формі не буде властивості ENCTYPE:
ENCTYPE="multipart/form-data"
У мене так працює.
|
|
|
Андрій Моравський
Академік
Повідомлень: 474
Зареєстрований: 17-8-2005
Місто: Львів
Нема на форумі
|
|
П.Роман Ромашка...
можете робочий фрагмент коду з HTML і Perl'у(скрипта що приймає файл)... кинути мені
сюди...
ДЯКУЮ!
|
|
|
Роман Ромашка
Академік
Повідомлень: 752
Зареєстрований: 22-11-2005
Місто: Київ
Нема на форумі
Настрій: Ідеальний
|
|
Киньте мені у2у свій мейл. І ввечері скину весь скрипт.
Але там є звертання до БД PGSQL. Тому запустити навряд чи вдасться.
|
|
|
![[*]](images/xp/default_icon.gif){kind=icon}
