TSfree 発言

On Mon, 26 Jun 2006 20:39:31 +0900 (JST)
wtnabe@... (ねこ丸) さんwrote:

>   ただ、T``S''NET なんだし、バッチ処理できる FTP なりなんなりのツール
> があればそれでいいような気も…しますね。藤岡さん方式。僕は sitecopy を
> 使ってます。と言っても更新にはほとんど使ってなくてバックアップメインに
> なっちゃってますけど(^^;（ほとんど tDiary と Wiki だから）

putは書いたから、

ls()は

use Net::FTP;
$ftp = Net::FTP->new('some.host.name');
$ftp->login('account','password');
$ftp->cwd("/homepage");
$ftp->ascii();
@files = $ftp->ls();
foreach (sort @files){
	print $_,"\n";
}
$ftp->quit();

get()は

use Net::FTP;
$ftp = Net::FTP->new('some.host.name');
$ftp->login('account','password');
$ftp->cwd("/homepage");
$ftp->ascii();
$ftp->get($ARGV[0]);
$ftp->quit();

　こんな感じで、lsでファイルリストをエディタ上に書き出して、getしたいファ
イル名を範囲選択して、getすると簡単にファイルを得ることができます。エディ
タ上で簡単に動きますけど、一つ一つのスクリプト作業のつなぎの部分を自動化
する仕組みが必要ですね。getで得たファイルをエディタに書き出すことも簡単
にできるのですが、ファイル名を自動では設定できないので、むしろファイルを
エディタで開くほうが効率がよさそうです。あるいは編集した後、ファイル名を
付けて保存で、getしているファイルに上書き保存すればよいかも。

そして、編集して、putする。

Danaなら、エディタを操作できるDanascriptがあるので全部自動化できるかもし
れませんね。ただ、UTF-8Nのモードはありません。

藤岡 和夫
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/