VPF::выгрузка файлов по ФТП - Форум программистов

naigo

Дата 27.7.2006, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 18.7.2006

Репутация: нет
Всего: нет

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

Код


if ($com =~ /put/i) {
    print qq {enter a file PATH to upload \n};
    $fp=<>;
    chomp $fp;
    print qq {$fp};
    open (FP, "<$fp");
    $fp =~ /(.*[\\\/])?(.*)$/;
    $fn=$2;
    binmode (FP);
    $pt=int (3333 + rand(1000)) ;
    socket(SYKET, PF_INET(), SOCK_STREAM(), 6) or die("socket: $!");

            send (FTP, "PORT $ip,$prt\r\n",0);
            recv (FTP , $dat, 1500, 0);
            send (FTP, "TYPE i\r\n",0);
            recv (FTP, $dat, 1500, 0);
            print qq {$dat};
            listen (SYKET,SOMAXCONN) or die("suks: $!");
            send (FTP, "stor $fn\r\n", 0);

    accept (SOC,SYKET) or die("accept: $!"); 
    print qq {accept\n};
    sysread (FP, $tmp, (stat(FP))[7]);
    send (SOC,"$tmp", 0);
    print qq {send\n};
    recv (FTP, $dat, 1500, 0);
    $pt ++;
    print qq (Port now $pt!!!\n);
    send (FTP, "TYPE A\r\n",0);
    close SOC;
    close SYKET;
    close FP;
    }

ссылки на Net::Ftp давать не надо smile

naigo

Дата 27.7.2006, 22:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 18.7.2006

Репутация: нет
Всего: нет

каюсь уважаемые господа!
плохо юзал поиск
не системный perl, но решение верное smile

тут

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »