電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

指定したファイルの更新時刻をPerlモジュールのNet::FTPで生成

PerlモジュールのNet::FTPを使用して、FTPサーバにログインして、指定したファイルの更新時刻を出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Net::FTP;
use Time::Piece;
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
my %ftp = (
	ftp_address => "hoge.localhost.ne.jp",
	user_name => "hoge",
	password => "0123",
	directory => "./www"
);
 
my $net__ftp = Net::FTP -> new(
	$ftp{"ftp_address"},
	Debug => 0,
	Timeout => 120
);
 
$net__ftp -> login(
	$ftp{"user_name"},
	$ftp{"password"}
);
 
my $mdtm = $net__ftp -> mdtm(
	$ftp{"directory"}."/favicon.ico"
);
 
$net__ftp -> quit;
 
print $mdtm."\n";
print Time::Piece -> strptime($mdtm,"%s");
 
exit;

サンプルコードです。FTPサーバにログインして、指定したディレクトリからmdtmでファイルの更新時刻を取得します。次に、ファイルから取得したタイムスタンプのエポック秒をTime::Pieceモジュールで変換して出力します。

1469954473
Sun Jul 31 08:41:13 2016

出力結果です。FTPサーバにログインして、指定したファイルの更新時刻を出力しました。

スポンサードリンク
スポンサードリンク