Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - Need help! (https://forum.antichat.xyz/showthread.php?t=34157)

Вобщем имеется сайт до которого у меня из внутренней сети бесплатный и быстрый коннект, на сайт можно заливать файлы (в том числе и из инета), так вот идея: как на перле реализовать закачку файлов на сайт. Собственно интрересует сама функция с помощью которой можно отправить данные(avi файл) на сайт POST запросом.
Форма на сайте для передачи данных:

Код:

<form name="f1" action="" method="POST" enctype="multipart/form-data">

<input type='file' name='file1' class='normal' size='100%' style='width:100%;'/>

<input type='button' name='submit2' class='normal' value='Загрузить' style='width:100px;' onclick='subm()'>

<input type='hidden' name='type' value='video'/>

<input type='hidden' name='fcid' value='87'/>

 <input type='hidden' name='fkey' value='c4bf3d1568f4a1debcc400b79adba775'/>

 <input type='hidden' name='MAX_FILE_SIZE' value='200000000'/>

</form>

а тебе обязательно на перле? на пхп не прокатит?

Код:

<?php

// Загрузка файлов на сервер

// Если register_globals=Off



    // Если upload файла

    if(isset($_FILES["myfile"]))

    {

        $myfile = $_FILES["myfile"]["tmp_name"];

        $myfile_name = $_FILES["myfile"]["name"];

        $myfile_size = $_FILES["myfile"]["size"];

        $myfile_type = $_FILES["myfile"]["type"];

        $error_flag = $_FILES["myfile"]["error"];



        // Если ошибок не было

        if($error_flag == 0)

        {

            print("Имя файла на нашем сервере (во время запроса): ".$myfile."<br>");

            print("Имя файла на компьютере пользователя: ".$myfile_name."<br>");

            print("MIME-тип файла: ".$myfile_type."<br>");

            print("Размер файла: ".$myfile_size."<br><br>");



            // Получаем содержимое файла

            $fp = fopen($myfile,"r");

            $content = fread($fp, filesize($myfile));

            fclose($fp);



            // Вывод содержимого файла

            print($content);



        } // end of if 2

    } // end of if 1

?>

А еще такая тема есть:
http://ru.php.net/manual/ru/function.copy.php

вот на перле
http://forums.webscript.ru/printthread.php?threadid=14665

еще вот это посмотри:
http://articles.excelion.ru/pc/progr/perl/zagruzka-failov-na-server-i-posylka-e-mail-s-vlojeniiami.html

По моему топикстартер имел ввиду другое: есть сайт (не его), на котором есть форма для закачки файлов. Вот и он хочет написать perl скрипт, который будет сам загружать файлы в ту форму. (тоесть чтобы без участия браузера)
Тут надо подкурить curl. Вроде его силами такое можно сделать.

2je0n Спасибо, но это не совсем то что нужно... Подобный скрипт стоит на сайте то есть любой желающий может загрузить файл размером до 100мб из инета форма (выше), моя идея со своего шелла притвориться браузером и загрузить эти 100мб на сайт, а потом уже бесплатно скачать обычным способом...

тобеш как я понял с этого сайта тебе траф не считаеться (он идет как внутренний), поэтому тебе нужен скрипт который булет размещен на этом сайте и будет туда закачивать файлы с нета, а потом ты качать их сэтого сайта. Я тебя правильно понял?
Есле да, то не мудри, используй Php проксю и будет тебе счастье))

например, этот.
http://dump.ru/files/8/864808469/
не забудь расширение файла подправить - пыхыпы

Цитата:

Сообщение от nc.STRIEM

НЕТ, не совсем так, на этом сайте я немогу установить свой скрипт я только могу загружать файлы(картинки, фильмы...). При загрузке файла используется форма которая выше файл отправляется POST запросом. Для примера представьте себе iFolder.ru туда можно загрузить файл с локального компьютера.... Вот у меня тоже самое только как собственно post запросом отправить файл... так как это делается через браузер...

тебе сюда: http://phpclub.ru/detail/article/http_request
раздел: 3.2 Content-Type: multipart/form-data