Net::FTP

stella_zch

UID: 46202
帖子: 182
积分: 418
在线时间: 1 天 21 小时

1^# stella_zch 发表于 2008-11-03 10:04

Net::FTP

大家帮我看看下面的代码哪里出了错误，怎么老下载不了？明明有要下载的文件，注：ftp是对的。

#!/usr/bin/perl -w

use Net::FTP;

my $ftp = Net::FTP->new("ftp.unibe.ch", Debug => 0) or die "Cannot connect to some.host.name: $@";

$ftp->login("anonymous",'‐anonymous@123.com') or die "Cannot login ", $ftp->message;

$ftp->cwd("/aiub/CODE/2008") or die "Cannot change working directory ", $ftp->message;

$ftp->get("CGIM0010.08N.Z") or die "get failed ", $ftp->message;

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

2^# ynchnluiti 发表于 2008-11-03 10:14

我用你的脚本下载下来了。提示什么错误啊？

QUOTE:

2008-11-03  10:13             476 CGIM0010.08N.Z
            1 个文件          476 字节
            0 个目录  2,701,234,176 可用字节

finixlei

UID: 8124
帖子: 117
积分: 269
在线时间: 19 小时

3^# finixlei 发表于 2008-11-03 14:42

是不是你们公司网络做的限制啊？楼主回家再试试看。我在我公司实验的结果如下：
Cannot connect to some.host.name: Net::FTP: connect: Unknown error at b.pl line 6.

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

4^# 不死草发表于 2008-11-03 16:19

QUOTE:

原帖由 finixlei 于 2008-11-3 14:42 发表
是不是你们公司网络做的限制啊？楼主回家再试试看。我在我公司实验的结果如下：
Cannot connect to some.host.name: Net::FTP: connect: Unknown error at b.pl line 6.

一般的非IT公司都有限制的！~