サーバー構築

削除機能を考えてみました。

最後にハッシュをファイルに保存する直前に実行します。

# 削除while ( my($key ,$value) = each %btmp ){ if (exists $ftmp{$key} ...

差分のみ転送するように修正しました。
findを-lsをつけて実行すると以下のように出力します。

1125899906910144 4 -rwx------ 1 Admin None 1094 2月 21 2013 te ...

スピードもアップして、これで！、と思ってテストしていたら色々問題がありました。
こういう問題を修正していくのも面白いものです。

連続ファイル転送ができなくなることがある

元々はワードプレスのバックアップのためにつくり ...

十数個のファイルであれば問題ないのですが、数百もある場合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 ...

WordPress（ワードプレス）のバックアップはデータベースのバックアップだけでは足りません。写真ファイルやプラグインもバックアップしたいところです。

さて、通常日次的なデータを他のサーバーにバックアップする場合、

WEBアプリはPerlで簡単に組みました。
単に、mp3フォルダの中身をテーブル組にするだけのものです。
やってみるとわかりますが、ラジオって毎日だったりするのでどんどん溜まっていきます　汗
その為、デリートボ ...