たわごと

_ [upftp] upftp2.pl ver.1.0α2

まだ未公開。ドキュメントとかサンプルも書いてないし。

• 単一ファイルのアップロードがとりあえず完成
• Setup::DirList->{"Server"}をサーバーリストへのリファレンスにした
• Setup::DirList->{"Name"}を追加。名前とファイル名をハッシュのキーにする
• 対象外拡張子(ExtensionFilter)の設定を可能に

とりあえず現時点での設定ファイル(Setup.pl)はこんな感じになってます。

package Setup;


# サーバー情報
%ServerList = (
	"Server1" => {				# DirListで指定するサーバー名(適当に)
		"Host" => "ftp.xxx.xxx.com",	# サーバーのホスト
		"Name" => "sakura",		# ログインネーム
		"Pass" => "kero123",		# パスワード
	},
	"Server2" => {
		"Host" => "ftp.yyy.yyy.co.jp",
		"Name" => "kohaku",
		"Pass" => "hisui000",
	},
						# いくつでも追加可能
);


# ディレクトリ情報
@DirList = (
{	"Name" => "MainPage",			# 適当な名前
	"LocalDir" => "C:/homepage",		# ローカルのディレクトリ
	"Server" => $ServerList{"Server1"},	# 対応するサーバー
	"RemoteDir" => "/",			# LocalDirに対応したサーバーのディレクトリ
	"ExtensionFilter" => ["bak","old"],	# 対象外にしたい拡張子(省略可)
},
{	"Name" => "MirrorPage",
	"LocalDir" => "C:/homepage",		# 同じディレクトリを指定→ミラーリングが可能
	"Server" => $ServerList{"Server2"},
	"RemoteDir" => "/public_html/",
},
{	"Name" => "Text",
	"LocalDir" => "D:/data/txt",
	"Server" => $ServerList{"Server1"},
	"RemoteDir" => "/txt/",
},
						# いくつでも追加可能
);


1;		# 読み込み正常終了

このような設定ファイルをつくっておくことで、エクスプローラーなどからupftp2.plにファイルを「送る」だけでFTPにアップロードしてくれます。エディタにある「外部プログラムの起動」との連携もいいでねぇ。

ちなみにこの設定ファイルでは、例えばC:\homepage\cg\back.jpgを指定すると、ftp.xxx.xxx.comの/cg/と、ftp.yyy.yyy.co.jpの/public_html/cg/ にアップロードしてくれます。このとき、前回upftp2.plを使った後back.jpgを更新していなかったら、アップロードはされません。また、C:\homepage\txt\history.bakというファイルであれば、ftp.yyy.yyy.co.jpにのみアップロードされます。

_ [♪] CAT'S EYE / 杏里