ftp ファイル送信 Net::FTPモジュール

perlでftpファイル送信を自動化しています。
Net::FTPモジュールを使用をしています。

#!/usr/bin/env perl
use strict;
use Net::FTP;

my $host_name = "host";
my $user_name = "user";
my $password = "password";
my $remote_file = "remote.txt"
my $local_file = "local.txt"
my $ftp = Net::FTP->new($host_name);

# リモートホストに接続
$ftp->login($user_name, $password);
# binaryモード
$ftp->binary;
# ファイル送信
$ftp->put($local_file, $remote_file);
$ftp->quit;

ftp ファイル受信 Net::FTPモジュール

スポンサードリンク