自鯖活動日記 ynko's blog

十数個のファイルであれば問題ないのですが、数百もある場合cksumが結構負荷が高いので時間もかかります。
なんとか早くする方法を考えてみました。

findでファイル情報を取得できないだろうか

findでcksumをす ...

ここまで出来たら、もとのFTPプログラムに組み込みました。

#!/usr/bin/perluse strict;use Net::FTP;use Storable qw(nstore retrieve);use Cwd;my $ ...

一気にうまくやろうとするのは危険です。
というわけで、まずはあるディレクトリのファイルを取得して、その情報をハッシュにする方法を確立しましょう。

サンプルディレクトリを作る

とりあえずtestというディレクトリを作っ ...

基本的には毎回ファイルリストを取って保存しておき、
前回にとったファイルリストのうち

変更されたファイル
新しく追加されたファイル

がわかればいいということになります。
単純にファイルリストを作 ...

まずは以前作ったディレクトリFTPのPerlスクリプトです。

 

#!/usr/local/bin/perl#use strict;use Net::FTP;# 引数を読み取るif ($#ARGV ne 4 ...