Count.pm - カウンタを回す

概要

ただカウントを回すだけのPerlモジュールです。表示機能を完全に省いてますのでアクセスカウンタ以外にも幅広い用途に応用できます。ロックファイル/増量指定機能付き。ソースも極めて見やすく設計してますのでPerlの学習にも最適と思われます。

注：これはそのままサーバにおいて実行するものではなく、Perlプログラムなど内部から呼び出す形のものです。のでご利用するときは若干オブジェクト指向などの知識が必要かもしれません。

なおバグ情報要望意見文句助言暴言罵声他、メールや掲示板でお待ちしています！

        use Count;
        # 普通にカウンタを回す
        Count -> new( 'Foo.txt' ) -> inc;

        # カウントダウンも出来る
        my $ref = Count -> new( 'Foo.txt' );
        my $now = $ref -> inc( -1 );
        print "Count Down : $now \n";

        書式   : new( カウンタファイル )
        戻り値 : Countオブジェクトへの参照

        書式   : inc( [ カウンタを回す値(省略すると+1) ] )
        戻り値 : 現在のカウント値