Perl入門ゼミ

テキスト処理、Linuxサーバー管理、Web開発ならPerl
  1. Perl
  2. モジュール
  3. here

Net::FTP - FTPを使ったファイル転送

Net::FTPを使用すると、FTPでファイルのダウンロード・アップロードができます。

IT関連の仕事ではサーバにアクセスしてファイルをダウンロード・アップロードすることが頻繁にあります。FFFTPなどのFTPのクライアントのソフトウェアなどを使用してこれを行うのは非常に手間がかかります。できれば自動化したいと思うことでしょう。

PerlにはFTPを行うためのクライアントアプリケーションを作成するためのNet::FTPというモジュールが標準で添付されています。Net::FTPを使えばファイルのダウンロード・アップロード作業は自動化され業務の効率化を図ることができます。

FTPとは

FTPはファイルを転送するためのプロトコルです。FTPを使用すればファイルのアップロードやダウンロードを行うことができます。FTPのもうすこし解説は「第56回FTP(1) 概要(3分間Networking」がわかりやすいと思います。

ここでは詳しい解説は行わずにFTPサーバに接続してファイルをダウンロードする手順を簡単に解説します。FTPサーバに接続してファイルをダウンロードするには次の3つ手順を踏みます。

  1. ホスト名(あるいはIPアドレス)を指定してFTPサーバに接続する。
  2. ユーザ名とパスワードを入力してログインする
  3. FTPコマンドを使用してファイルをダウンロードする
  4. 接続を終了する

ファイルをダウンロードする簡単なサンプル

実際にファイルをダウンロードする簡単なサンプルを書いてみます。

# モジュールの読み込み
use Net::FTP;

# FTPサーバへの接続(ホスト名でもIPアドレスでもOK)
my $ftp = Net::FTP->new('somehost');

# ユーザ名とパスワードを指定してログイン
$ftp->login('user', 'password');

# getというファイルを取得するコマンドを使ってファイルをダウンロード
$ftp->get('/dir/somefile');

# 接続を終了する
$ftp->quit;

newメソッドに接続先を指定するとFTPサーバに接続することができます。また戻り値にはオブジェクトが返却されこれを利用してログインしたりFTPコマンドを発行したりします。

loginメソッドにユーザ名とパスワードを指定するとFTPサーバにログインすることができます。ログインというのは簡単にいうとサーバによってFTPコマンドを実行する許可が与えられた状態のことをいいます。

getというメソッドを使用するとファイルをダウンロードすることができます。ファイルはカレントディレクトリにダウンロードされます。ファイル名はディレクトリ名を含まない末尾の名前(このサンプルではsomefile)になります。

よく使用するメソッド

よく使用するメソッドについて紹介します。

new

Net::FTPオブジェクトを作成してFTPサーバに接続します。

$ftp = Net::FTP->new($host);

引数にはホスト名かIPアドレスを指定することができます。また第2引数以降はオプションを指定することができます。オプションはハッシュのリファレンスで指定します。よく使用するオプションとしてはタイムアウトの秒数を設定するためのTimeoutなどがあります。デフォルトのタイムアウトの秒数は120秒です。

$ftp = Net::FTP->new($host, Timeout => 180)

login

ユーザ名とパスワードを指定してログインします。

$ftp->login($user, $password)

匿名でFTPサーバに接続する場合はユーザ名に「anonymous」を指定します。

$ftp->login('anonymous')

cwd

接続先のカレントディレクトリを変更します。

$ftp->cwd($dir)

FTPはステートフルなプロトコルで接続先のディレクトリを変更することができます。ファイルをダウンロードする場合はカレントディレクトリを変更してからファイル名だけを指定するのが一般的かもしれません。

$ftp->cwd('dir')     # カレントディレクトリ変更
$ftp->get('somefile') # ファイルのダウンロード

get

ファイルをダウンロードするにはgetを使用します。

$ftp->get($file)

第2引数にファイル名を指定すると名前を変えてダウンロードを行うことができます。

$ftp->get($file, $renamed_file)

put

ファイルをアップロードするにはputを使用します。

$ftp->put($file$)

第2引数にファイル名を指定すると名前を変えてアップロードを行うことができます。

$ftp->put($file, $renamed_file)

binary

ファイルの転送モードをバイナリモードに変更します。

$ftp->binary

FTPにはファイルの転送モードという考え方があります。転送モードにはバイナリモードとアスキーモードの2種類があります。

バイナリモードを指定するとファイルを転送するときに何の変換も行いません。画像ファイルや動画ファイルなどを転送する場合はかならずバイナリモードで転送する必要があります。

ascii

ファイルの転送モードをアスキーモードに変更します。

$ftp->ascii

アスキーモードを指定すると改行コードの自動変換を行ってくれます。たとえばWindowsのデフォルトの改行コードは\r\nです。Unixのデフォルトの改行コードは\nです。Windowsのメモ帳などで作成したファイルをそのままUnixに転送すると正しく表示することができません。アスキーモードで転送するとこの変換を自動で行ってくれます。

ls

ファイル名の一覧を取得します。

@files = $ftp->ls($dir)

ディレクトリ名を省略した場合は接続先のカレントディレクトリに含まれるファイルの一覧を取得します。

dir

ファイル名の一覧を詳細な情報を含めて取得します。

@file_infos = $ftp->dir($dir)

dirコマンドはOS依存です。そのOSで「ls -l」を実行した出力結果が得られます。たとえば私の現在使用しているFedora7の場合は次のような出力になります。

-rw-r--r--  1 someuser  somegroup   6618 Aug  8 17:22 button.html
-rwxr-xr-x  3 someuser  somegroup    512 Apr  1  2009 a.pl
-rwx------  1 someuser  somegroup     77 Apr  1  2009 mm.txt

quit

FTPサーバーとの接続を閉じます。

$ftp->quit;

ときどき使用するメソッド

ときどき使用するメソッドです。

メソッド名 機能
pwd 接続先のカレントディレクトリの取得
rename ファイル名の変更
mkdir ディレクトリの作成
rmdir ディレクトリの削除
size ファイルサイズの取得

すべてのメソッドの一覧

メソッドのすべての一覧はNet::FTPのマニュアルを参照してください。

Net::FTP(perldocjp)

Net::FTPのエラー処理

実は最初のサンプルではNet::FTPの使い方を簡潔に説明するためにエラー処理を省いていました。Net::FTPはコマンドなどが失敗した場合に例外を投げてくれないので自前でエラー処理を行う必要があります。最初のサンプルにエラー処理を加えると次のようになります。

# FTPサーバへの接続
my $ftp = Net::FTP->new('somehost')
  or die "Cannot connect to '$host': $!";

# ログイン
$ftp->login('user', 'password')
  or die "Cannot login '$host:$user:$password': " . $ftp->message;

# ダウンロード
$ftp->get('/dir/somefile');
  or die "FTP command fail: " . $ftp->message;

$ftp->quit;

エラー処理はなぜ行う必要があるのでしょうか?それはFTPサーバは外部にあるため確実に成功する保障はどこにもないからです。ネットワークのエラーやサーバのダウンなどで接続できないというときのことについて考える必要があります。

またホスト名が間違っていた場合は接続に失敗します。このような場合に残りの処理を続けたとしても意味がありません。わかりやすいエラーメッセージを表示してプログラムは止まるべきです。

ではNet::FTPのエラー処理について簡単に解説します。

[A]接続のエラー処理

newメソッドでFTPサーバへの接続に失敗した場合は戻り値はundefになりますのでor dieをしてプログラムを終了させます。OSのエラーメッセージである$!を含めておきましょう。

my $ftp = Net::FTP->new('somehost')
  or die "Cannot connect to '$host': $!";

[B]それ以外のエラー処理

接続した後にエラーが発生した場合は$ftp->messageでエラーの内容を取得することができます。このエラーメッセージをエラーメッセージに含めるようにします。

# ログイン
$ftp->login('user', 'password')
  or die "Cannot login '$host:$user:$password: '" . $ftp->message;

# ダウンロード
$ftp->get('/dir/somefile');
  or die "FTP command fail: " . $ftp->message;

Net::FTPの実行できるサンプル

ユーザとパスワードを指定するFTPサーバにはサンプルでは接続することができません。パスワードを指定しないでもよい匿名サーバからファイルをダウンロードしてみます。CPANのミラーサイトからCPANのトップページ(index.html)をダウンロードするサンプルです。

use strict;
use warnings;

use Net::FTP;

my $host = 'ftp.u-aizu.ac.jp';
my $user = 'anonymous';

my $ftp = Net::FTP->new($host)
  or die "Cannot connect to '$host': $!";

$ftp->login($user)
  or die "Cannot login '$host:$user':" . $ftp->message;

$ftp->cwd('/pub/CPAN')
  or die "FTP command fail: " . $ftp->message;

$ftp->get('index.html')
  or die "FTP command fail: " . $ftp->message;

$ftp->quit;
Qiitaで
「3分間Perlテキストクッキング」
という連載を始めました。
テキスト処理を題材にして、3分くらいで読める分量で、書いていきます。
文字コード、テキストデータ、コンピュータにおけるテキストの扱いなど、ソフトウェアの基礎の話題も
3分間Perlテキストクッキング