99章.お役立ちperlプログラム

99.0.コマンドのパスを確認する

perlなどのコマンドの所在は,whichコマンドで確認します。

kibita(*)which perl
/usr/bin/perl

このページで公開するプログラムのコマンドは以下の所在で作成されています。

コマンド絶対パス
perl/usr/bin/perl
perl(NChat,PwebML,DbRefer,Forum)/usr/mesh/bin/perl
find/usr/bin/find
mail/usr/bin/mail
sendmail(PwebML)/usr/lib/sendmail


プログラム集
設置に関する質問は受け付けません
No.内容スクリプト名登録日
1アクセスログreflog1996/10/06
2htm*ファイルの参照日時の集計reftime1996/10/06
3フォームのデコードmaildec1996/10/12
42人専用チャットTwoChat1996/12/10
5チャットNChat1997/05/25
6疑似メーリングリストPwebML1997/05/28
7アクセスカウンタcount1997/06/12
8バイオリズムBiorytm1997/09/01
9サーチャーminiDbRefer1998/03/24
10フォロー形式掲示板Forum1998/06/05
11投票掲示板Vote1999/12/14


バグ情報

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdat) = localtime(time);

if ($year > 60) {
    $year += 1900;
} else {
    $year += 2000;
}

$yearは,2000年を越えると3桁になりますので
以下のように修正して下さい。(そのままでも問題有りませんが...)

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdat) = localtime(time);

$year += 1900; #VALID THRU 12/2037

[HOME]

Copyright (c)1996-99 GOMASUKE
Since 10/06/1996, Last Updated 12/14/1999