電線の画像

Pointgets.net

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

指定したディレクトリの詳細リストをPerlモジュールのNet::FTPで生成

PerlモジュールのNet::FTPを使用して、FTPサーバにログインして、指定したディレクトリの詳細リストを出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Net::FTP;
 
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 @dir = $net__ftp -> dir(
	$ftp{"directory"}
);
 
$net__ftp -> quit;
 
for(@dir) {
	print $_."\n";
}
 
exit;

サンプルコードです。FTPサーバにログインして、指定したディレクトリからdirで取得した詳細リストを出力します。

drwx---r-x   7 hoge users         512 Jul 25 10:00 .
drwxr-xr-x   5 hoge users         512 Jul 22 03:34 ..
-rw----r--   1 hoge users         489 Jul 24 04:31 .htaccess
-rw----r--   1 hoge users       63095 Jul 31 17:41 apple-touch-icon.png
-rw----r--   1 hoge users        5430 Jul 31 17:41 favicon.ico
-rw----r--   1 hoge users       11458 Jul 31 17:41 index.html
-rw----r--   1 hoge users         116 Jul 31 17:41 robots.txt
-rw----r--   1 hoge users        8335 Jul 31 17:41 sitemap.xml.gz

出力結果です。FTPサーバにログインして、指定したディレクトリの詳細リストを出力しました。

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