□ ボボ [2004年11月23日15時42分]

自分はBIGLOBEのURLを使っているものです。
電光掲示板のロック機能を使いたいのですが、どうやらプロバイダ側の使用不可コマンドのgrepにひっかかってるみたいで、ロック機能が使うことができないみたいです。

----たぶん、ここが引っかかってるようです----

sub lock1 {

local($list,@lists);
local($retry) = 3;

$list = `ls $tmp$ls` || &error("ファイルをロックできません");
@lists = grep(/\.lock/,split(/\s+/,$list));

while (@lists) {

if (--$retry <= 0) {

foreach (@lists) { unlink "$tmp$_" || &error("ファイルをロックできません"); }
&error("ファイルをロックできません");
}

sleep(1);

$list = `ls $tmp$ls` || &error("ファイルをロックできません");
@lists = grep(/\.lock/,split(/\s+/,$list));
}
}

sub lock2 {

local($list,@lists);

$list = `ls $tmp$ls` || &error("書込に失敗した可能性があります");
@lists = grep(!/$lock/,grep(/\.lock/,split(/\s+/,$list)));

if (@lists) {

if (-e "$tmp$lock") { unlink("$tmp$lock"); }
&error("書込に失敗した可能性があります");
}

rename("$tmp$lock","$tmp$file") || &error("書込に失敗した可能性があります");

}

----ここまで----

どなたかCGIに詳しい方でロック機能部分のgrepを他のコマンドに置き換えることができるようでしたら、教えてもらえませんでしょうか。

一定時間書込が無かったので過去ログに移りました