電線の画像

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 @ls = $net__ftp -> ls(
	$ftp{"directory"}
);
 
$net__ftp -> quit;
 
for(@ls) {
	print $_."\n";
}
 
exit;

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

./www/.
./www/..
./www/favicon.ico
./www/apple-touch-icon.png
./www/robots.txt
./www/sitemap.xml.gz
./www/index.html
./www/.htaccess

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

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