怎么用perl实现下载文件?

jdewei

现在需通过perl程序在服务器上备份MYsql的数据库..
备份的文件再下载到本地机子上....
请问有没有好点的模块可以用来下载?
我在cpan上没有找到,先谢了....

[ 本帖最后由 jdewei 于 2006-10-31 16:41 编辑 ]

ghostsaint

use HTTP::Request::Common;
$response = $ua->request(GET($url),$filespec);

# OK?

jdewei

先去看看再说...谢了......

rrrrrrrr8

原帖由 ghostsaint 于 2006-10-31 16:53 发表
use HTTP::Request::Common;
$response = $ua->request(GET($url),$filespec);

# OK?

如果文件很大,那个$response是不是会塴掉?

redspider

原帖由 rrrrrrrr8 于 2006-11-1 11:18 发表

如果文件很大,那个$response是不是会塴掉?

perl 是一种工业级的强大工具。 所以问题要改一下：“如果文件很大，perl怎么样处理这个问题”
答案是： 可以把它存到外存储器上。

[ 本帖最后由 redspider 于 2006-11-1 12:11 编辑 ]

rrrrrrrr8

原帖由 redspider 于 2006-11-1 12:09 发表
perl 是一种工业级的强大工具。 所以问题要改一下：“如果文件很大，perl怎么样处理这个问题”
答案是： 可以把它存到外存储器上。

还是不明白怎么可能存在外存储器上?
那个$response是内存数据呀?
而且是一个完整的反回流.
比如一个100M文件,怎么样在每次有100K数据到达时就存到外存储器上呢?

flw

原帖由 rrrrrrrr8 于 2006-11-3 14:07 发表


还是不明白怎么可能存在外存储器上?
那个$response是内存数据呀?
而且是一个完整的反回流.
比如一个100M文件,怎么样在每次有100K数据到达时就存到外存储器上呢?

perldoc LWP::UserAgent

lovepl

use LWP::Simple
getstore($url,$file);