# 更新したファイルを転送するバッチファイル(Perl版)でのスクリプトファイル作成
# Copyriht(c)2006 MATSUMURA Toshikazu

$fileout = 'ftp1.tmp';
open OUT, ">>$fileout";	# 追加書き込みで開く

while ($line = <>){	# ファイル一覧の読み込み
	chomp $line;	# 改行コード削除
	last if ($line  eq 'last.update');	# 更新日マークで終了
	next if ($line eq 'ftp2.tmp'); # ファイル一覧は転送しない
	next if ($line eq 'ftp1.tmp'); # ファイル一覧は転送しない
	print OUT "put ";
	print OUT "$line\n";	# 更新日以降のファイルを出力
}
close OUT;
