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;
スポンサードリンク