Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Системное программирование > загрузка через Net::FTP


Автор: micolo 28.1.2007, 19:43
Доброго времени суток!

У меня такая проблема. Мне нужно сформировать из базы .xls файл и сразу загрузить его по ФТП. Файл формируется, но загружаться по фтп не хочет, т.е. появляется на фтп файл, с нужным название но абсолютно пустой. Думал проблема в том что файл не успевает сфорироваться и начинает закачиваться - ставивил sleep после формировании файла, не помогает. Доступ везде стоит. Дебаг через консоль ошибок не даёт.
Код

Net::FTP>>> Net::FTP(2.75)
Net::FTP>>>   Exporter(5.58)
Net::FTP>>>   Net::Cmd(2.26)
Net::FTP>>>   IO::Socket::INET(1.29)
Net::FTP>>>     IO::Socket(1.29)
Net::FTP>>>       IO::Handle(1.25)
Net::FTP=GLOB(0x8590880)<<< 220---------- Welcome to Pure-FTPd [privsep] [TLS] ----------
Net::FTP=GLOB(0x8590880)<<< 220-You are user number 4 of 10 allowed.
Net::FTP=GLOB(0x8590880)<<< 220-Local time is now 22:32. Server port: 21.
Net::FTP=GLOB(0x8590880)<<< 220-IPv6 connections are also welcome on this server.
Net::FTP=GLOB(0x8590880)<<< 220 You will be disconnected after 15 minutes of inactivity.
Net::FTP=GLOB(0x8590880)>>> user test
Net::FTP=GLOB(0x8590880)<<< 331 User alserftp OK. Password required
Net::FTP=GLOB(0x8590880)>>> PASS ....
Net::FTP=GLOB(0x8590880)<<< 230-User alserftp has group access to:  80
Net::FTP=GLOB(0x8590880)<<< 230 OK. Current directory is /
Net::FTP=GLOB(0x8590880)>>> CWD out
Net::FTP=GLOB(0x8590880)<<< 250 OK. Current directory is /out
Net::FTP=GLOB(0x8590880)>>> CWD code
Net::FTP=GLOB(0x8590880)<<< 250 OK. Current directory is /out/code
Net::FTP=GLOB(0x8590880)>>> TYPE I
Net::FTP=GLOB(0x8590880)<<< 200 TYPE is now 8-bit binary
Net::FTP=GLOB(0x8590880)>>> PASV
Net::FTP=GLOB(0x8590880)<<< 227 Entering Passive Mode (192,168,0,2,44,241)
Net::FTP=GLOB(0x8590880)>>> STOR TEST_REPORT280107.xls
Net::FTP=GLOB(0x8590880)<<< 150 Accepted data connection
Net::FTP=GLOB(0x8590880)<<< 226 File successfully transferred
Net::FTP=GLOB(0x8590880)>>> QUIT
Net::FTP=GLOB(0x8590880)<<< 221-Goodbye. You uploaded 0 and downloaded 0 kbytes.
Net::FTP=GLOB(0x8590880)<<< 221 Logout.



Уже всё перепробывал - в чём моя ошибка?


Автор: GoodBoy 30.1.2007, 12:58
исходник покажи!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)