Linuxとは違いlogrotateのような便利なツールがないWindows環境でApacheの古くなったログを圧縮するには一工夫が必要です。ActivePerlをインストールした環境では次のようなスクリプトを書いて、適当なフォルダに保存してタスクスケジューラで一日に一回実行…

WindowsにインストールしたApacheのログをsyslogに送るには一仕事必要です。 今回紹介する手順ではperlを利用してsyslogに送ります。 1. ActivePerlをインストールします。2. ActivePerlに付属しているppmでNet::Syslogをインストールします。3. 以下のよう…

get_hits,get_misses等を時刻とともにCSVファイルに出力するコードを下に記述しました。 タスクスケジューラやcronで定期的に実行することで統計情報の推移を調べることができます。 #!c:/perl/bin/perl use Cache::Memcached; my $server; my $port; my $se…

秀丸やeclipseで編集したファイルをMeadowなどで開くとたまに行末に「^M」の文字がつくことがあります。 DOSのCR/LF形式で改行が表現されたファイルをUNIXで使われるLF形式で表示しようとしているために起きてしまう現象です。一個ずつ消すのも面倒なのでコ…

ActivePerlをデフォルトでインストールした状態だと設定ファイルを読み込むためのモジュールConfig::Simpleが入っていません。 なので自作してみました。下記のように「=」で設定値を定義している設定ファイルを読み込むソースコードです。 key1=value1 key2…

perlでzipやlzhなどの圧縮ファイルを作成するコードの紹介です。最初systemを利用してOSコマンドで圧縮を行おうと考えたのですが、zipファイル作成のためのコマンドはデフォルトでは用意されていないのでArchive::Zipを利用して実現しています。 #!c:/perl/b…

今は試行錯誤中なのですが、そのうち複数のTomcatにアプリケーションをデプロイさせる方法を書く予定です。 その前段階として、Tomcatを操作するperlのコードを今回は掲載しておきます。下記の例はjsp-examplesというアプリケーションを起動させるコードです…