Web-Totalフリーランスかきしちが
無駄にWebサイト運営を考えるサイト

    open(IN,"$file") || &error("Can't open $file");
    @lines = <IN>;
    close(IN);

    $logcount = @lines;

#書込み処理プログラム
sub write {

    #フォームの入力状況確認
    if ($FORM{'name'} eq '') { &error("お名前が入力されていません。"); }
    if ($FORM{'msr'} eq '') { &error("メッセージが入力されていません。"); }

    #ファイルのオープン　予め$fileにログファイル名が代入されている物とします。
    open(IN,"$file") || &error("Can't open $file");
    open(OUT,">$temp") || &error("Can't write Temp File");

    #ログファイルを配列@linesに代入
    @lines = <IN>;

    #現在のログ数を取得
    $logcount = @lines;

    #ログの逆順処理
    @lines = reverse(@lines);

    #2重書込み禁止ルーチン
    foreach $line (@lines) {
        &jcode'convert(*line,'sjis');
        local($s1,$s2,$s3,$s4) = split(/<>/,$line);
        if (($s1 eq $FORM{'name'}) && ($s4 eq $FORM{'msr'})){
            &error("二重書き込みは禁止です！！");
        }
    }

    #書き込むデータの順番を決定
    $newrecode
    ="$FORM{'name'}<>$FORM{'email'}<>$FORM{'url'}<>$FORM{'msr'}<>\n";

    #配列@linesにデータをPUSH
    push (@lines,$newrecode);

    #ログの逆順処理
    @lines = reverse(@lines);

    #ログ数の判定
    $max = $max-1;
    if ($logcount > $max) {
        pop @lines;
    }

    #ログの書込処理
    print OUT @lines;
    close(OUT);
    close(IN);
    rename($temp,$file) || &error("Rename Error");
    chmod (0666,$file);
    if (-e $temp) { unlink($temp); }
}