Доброго времени суток всем!
Подскажите, как можно загрузить файлы с клиентского компа на сервер? К примеру, картинку 'C:\some_dir\picture.jpg'
Заранее спасибо!

Вобще-то эта тема уже не раз обсуждалась. Вот тебе пример, думаю там всё понятно. Если возникнут трудности с пониманием, пиши. Просто у меня сейчас нет такой возможности пояснять каждую строку. Потому лучше я поясню то, чего ты не понял.

Код

#!/usr/bin/perl -w use strict; use CGI; my $cgi = new CGI; # Путь к каталогу, куда грузим файлы my $dir = "/home/localhost/www/photos"; sub show_form {     print $cgi->start_html;     print $cgi->start_multipart_form();     print $cgi->filefield( -name => 'file' );     print $cgi->br;     print $cgi->submit( -name => 'send', -value => 'Отправить' );     print $cgi->end_form();     print $cgi->end_html; } sub upload_file {     my $file = shift;     my $file_new;     # Пропускаем толко файлы jpp, bmp, gif, png     if ( $file !~ /\/|\\(\w+\.(?:gif|jpg|png|bmp))$/i ) {         print $cgi->start_html( -title => 'Fatal error' );         print $cgi->start_center();         print $cgi->h1( {-style => 'color: #cc0000' }, 'Fatal Error<br>Загружать можно только графику');         print $cgi->end_center();         print $cgi->end_html();         exit(0);     } else {         $file_new = $1;     }     local *F;     my $buff;     open( F, "> $dir/$file_new" ) or die $!;       binmode F;       binmode $file;       print F $buff while ( read( $file, $buff, 1024 ) );     close( F ); } print $cgi->header( -charset => 'Windows-1251' ); if ( $cgi->param('send') ) {      upload_file( $cgi->param('file') );      show_form; } else {      show_form; }

Удачи.

Это сообщение отредактировал(а) korob2001 - 20.5.2005, 14:34

korob2001, спасибо тебе! Всё понятно.
Я вообще-то уже натыкался на вот этот read(), используемый для загрузки. Просто не был уверен, что его можно использовать именно в данной проблеме.
В общем, сенкс!

Появилась проблемка с загрузкой!
Вот такая прога:

Код

#!/usr/bin/perl -w use CGI qw(param()); print "Content-Type: text/html\n\n"; &upload_file(param('f')); sub upload_file {     my $file = shift;     my $file_new;     # Пропускаем толко файлы jpp, bmp, gif, png #    if ( $file !~ /\/|\\(\w+\.(?:gif|jpg|png|bmp))$/i ) { #    die 'saf'; #    } else {         $file_new = 'pic.jpg'; #    }     local *F;     my $buff;     open( F, "> $file_new" ) or die $!;       binmode F;       binmode $file;       print F $buff while ( read( $file, $buff, 1024 ) );     close( F ); }

Попробовал её под Apache на своём компе (ОС - винда 98). Рисунок не хочет грузится. Путь задаётся из поля: <input type=file name=f>
Может не так задаётся имя файла. По ходу, $file принимает значение типа "C:\pic.jpg".
Подскажите, в чём бок!!!

Проблема скорее всего в теге <form>, правда ты его не привё здесь. Вобщем проверь если ты выводил тег <form> HTML тегами, то он должен выглядеть примерно так:

Код

<form enctype='multipart/form-data' ...другие атрибуты>

Если выводишь форму с помощью CGI.pm, то просто вместо метода start_form() используй, start_multipart_form()

Удачи.

Я так понял, что здесь самым главным является именно enctype='multipart/form-data'. Я этот атрибут не выводил...

Если форма будет загружать файлы с клиентского компа, то его нужно указывать всегда. По умолчанию этот атрибут: application/x-www-form-urlencoded

Здравствуйте. Я прочитала статьи из вашего форума на тему зугрузки файлов на сервер.


Файл создается на сервере, вот только 0 байт. Почему? Где я чего не понимаю и не так делаю?   

 

Проблема скорее всего в том, что ты теряешь дескриптор файла. Попробуй сделать это присвоение таким образом:

Либо передавай ссылку на $atr, если это подпрограмма. 
Так же обрати внимание на отрибут enctype, тега <form>:

Если не поможет, выложи код, как ты получаешь параметры.  

Это сообщение отредактировал(а) korob2001 - 17.5.2006, 15:10

$file должен быть открытым файловым дескрипоторм.

Добавлено @ 15:56 
Что содержит в себе $atf? 

$atf- это  имя файла, которое я получила с помощью <INPUT type="file" name="atfile">
Я делала без модуля CGI, так что функцией upload  воспользоваться не удасться...  Сейчас попробую вышеуказанные советы. Спасибо  

Ага, я наткнулась на те же грабли. Не указала    enctype='multipart/form-data'. Косяк.  Вот только не знаю, как это 
xx7YNMS251WFtLgcHCUxdQW8L7iBqQEnLJJhdmjilGveZZGqmjmN9IV Content-Disposition: form-data; name="from" g g g ------------xx7YNMS251WFtLgcHCUxdQW8L7iBqQEnLJJhdmjilGveZZGqmjmN9IV Content-Disposition: form-data; name="to" [email protected] ------------xx7YNMS251WFtLgcHCUxdQW8L7iBqQEnLJJhdmjilGveZZGqmjmN9IV Content-Disposition: form-data; name="subject" dfghdh ------------xx7YNMS251WFtLgcHCUxdQW8L7iBqQEnLJJhdmjilGveZZGqmjmN9IV Content-Disposition: form-data; name="atfile"; filename="mysqlaccess.log" Content-Type: text/x-log ------------xx7YNMS251WFtLgcHCUxdQW8L7iBqQEnLJJhdmjilGveZZGqmjmN9IV Content-Disposition: form-data; name="attach" прикрепить ------------xx7YNMS251WFtLgcHCUxdQW8L7iBqQEnLJJhdmjilGveZZGqmjmN9IV Content-Disposition: form-data; name="text" dfhdfhdhdh ------------xx7YNMS251WFtLgcHCUxdQW8L7iBqQEnLJJhdmjilGveZZGqmjmN9IV-- 
обрабатывать, но придумаю.    
А может у кого есть процедурка, которая помогает получить имена и значения передаваемых параметров?    

Модуль CGI:
 

что-то не получаетя....


Это страница.


$query=
------------9Yo4YOYQ0fXyslVMftYbEM7TSidDL9aUgOXEm5emjAkbvDva6T9KqFl Content-Disposition: form-data; name="from" g g g ------------9Yo4YOYQ0fXyslVMftYbEM7TSidDL9aUgOXEm5emjAkbvDva6T9KqFl Content-Disposition: form-data; name="to" Veronika ------------9Yo4YOYQ0fXyslVMftYbEM7TSidDL9aUgOXEm5emjAkbvDva6T9KqFl Content-Disposition: form-data; name="subject" RE: dfgdgd ------------9Yo4YOYQ0fXyslVMftYbEM7TSidDL9aUgOXEm5emjAkbvDva6T9KqFl Content-Disposition: form-data; name="atfile"; filename="" ------------9Yo4YOYQ0fXyslVMftYbEM7TSidDL9aUgOXEm5emjAkbvDva6T9KqFl Content-Disposition: form-data; name="attach" прикрепить ------------9Yo4YOYQ0fXyslVMftYbEM7TSidDL9aUgOXEm5emjAkbvDva6T9KqFl Content-Disposition: form-data; name="text" Вы писали Tue, 16 May 2006 12:13:48 +0400 : Жуки@Mail.ru - маленькие герои в мире большого спорта! http://r.mail.ru/cln3055/zhuki.mail.ru/ ------------9Yo4YOYQ0fXyslVMftYbEM7TSidDL9aUgOXEm5emjAkbvDva6T9KqFl-- 


$sendmail=param('sendmail');
  $attach=param('attach');
  $savemail=param('savemail');
  $back=param('back');
  $reply=param('reply');
  $resend=param('resend');
  $sid=param('sid');

а эти переменные пустые. P.s. модуль я подключила.
Может, это от того что форму я печатаю "ручками", т.е. не с помощью модуля CGI?

 

я нашла ошибку. Не надо было делать так

до того, как сделала
$sendmail=param('sendmail');
 Вот и все