Net::FTPでプロキシを使う

Perl

分かれば簡単である。

use strict;
use warnings;

use Net::FTP;
#use Net::Config qw(%NetConfig);

use Data::Dumper;

#print Dumper \%NetConfig;

my $ftp;
my %option = (
    Debug         => 1,
    Firewall       => 'firewall.address',
    Port           => 1234,
    FirewallType => 1,
);

$ftp = Net::FTP->new('server.address', %option);
$ftp->login('username','password');
print Dumper $ftp->ls;


newに渡す引数のオプションは、Net::Configを参考にする。
ファイアーウォールや認証の種類が何個かあるので、環境に合ったものを選ぶ。
わかんないときは全部試すｗ

あとfwuserとかもあるけど指定の仕方は調べてない。
俺の環境で使わんし。

あーあーあと、Net::Configのドキュメントに嘘がある（あった）らしい。
Firewalltypeが間違ってたりするそうな。