Программирование > Perl

Как принять файл...

(1/1)

Error202:
Вот что-то никак не догоню....
Есть заголовок http...
Скрипту передается файлик... Как его сохранить...?
Я не знаю, какие данные его передают?



  POST /handler.cfm HTTP/1.1 
  Accept: text
  Content-Type: multipart/form-data; 
  boundary=----------Ij5ae0ae0KM7GI3KM7ei4cH2ei4gL6 
  User-Agent: Shockwave Flash 
  Host: [url]www.example.com[/url] 
  Content-Length: 421 
  Connection: Keep-Alive 
  Cache-Control: no-cache
  
  ------------Ij5GI3GI3ei4GI3ei4KM7GI3KM7KM7
  Content-Disposition: form-data; name="Filename"
  
  MyFile.jpg
  ------------Ij5GI3GI3ei4GI3ei4KM7GI3KM7KM7
  Content-Disposition: form-data; name="photo"; filename="MyFile.jpg"
  Content-Type: application/octet-stream
  
  FileDataHere
  ------------Ij5GI3GI3ei4GI3ei4KM7GI3KM7KM7
  Content-Disposition: form-data; name="Upload"
  
  Submit Query
  ------------Ij5GI3GI3ei4GI3ei4KM7GI3KM7KM7--



Делаю так, но файлы пустые... :(

my $name = param(\'Filename\');
my $spic = param(\'Upload\');
if ($spic)
 {
            open (OUT,">$name");
             binmode(OUT);
             while(<$spic>) {  print OUT $_; }
            close(OUT);
  };


На PHP пишут как-то так, но я не понимаю нефига

<?php
if ($_FILES[\'Filedata\'][\'name\']) {
$uploadDir = "jobs/";
$uploadFile = $uploadDir . basename($_FILES[\'Filedata\'][\'name\']);
move_uploaded_file($_FILES[\'Filedata\'][\'tmp_name\'], $uploadFile);
}
?>

Error202:
Всем спасибо!
Нашел, когда добавлял сюда... Filedata :)

Пытаюсь upload на Flashе сделать... точнее сделал теперь

Навигация

[0] Главная страница сообщений