perl 如何读取远程服务器上的文件

zhx01031173

如果远程服务器地址为：192.168.222.111， 需要读取的URL：p.txt ，端口号：80，代码如何实现将p.txt读取到本地? 谢谢大家！

[ 本帖最后由 zhx01031173 于 2008-11-10 19:34 编辑 ]

flw

use LWP::Siimple;

my $content = get( "???://192.168.222.111:80/p.txt" );  # $content 里面就是内容了
# 或者
getstore( "???://192.168.222.111:80/p.txt", "/tmp/p.txt" );  # 这样就下载到 /tmp/p.txt 里面了。


??? 是你所使用的协议名称。
可以是 ftp http https 等等。
不过既然你的端口是 80，那 99% 就是 http 了。

zhx01031173

谢谢你！我试试看

flw

还有更酷的模块：
http://search.cpan.org/~itub/IO-All-LWP-0.14/lib/IO/All/LWP.pm

zhx01031173

无

[ 本帖最后由 zhx01031173 于 2008-11-11 16:21 编辑 ]

hfahe

......$content 你都没有赋值 打开什么？

zhx01031173

无

[ 本帖最后由 zhx01031173 于 2008-11-11 16:21 编辑 ]

hfahe

应该是open FH, $file
然后 print FH $content
估计你请求的地址不对，$content没有获得值。

zhx01031173

无

[ 本帖最后由 zhx01031173 于 2008-11-11 16:22 编辑 ]

zhx01031173

无

[ 本帖最后由 zhx01031173 于 2008-11-11 15:34 编辑 ]