さる
[E-Mail]
1999/12/24(金) 10:34:29
Perでスクリプトを書こうとしています。
HTMLから、幾つかのデータを受け取る際に採番し、テーブルを吐き出させデータファイルを作り、別のスクリプトで読み出させるような物です。
ところが、肝心なカウンターが"2"で止まってしまいます。
若輩者な為、ど～してもわかりません。教えてください。
以下がカウンター部分です。
#--------------------
$contfile = "prop/count"; #カウントデータファイル
#--採番--
open ( OCNT,"$contfile");
$cnt = <OCNT>;
close (OCNT);
$count = split(/-/,$cnt);
$count++;
$count = sprintf("%.4d",$count);
open(ICNT,">$contfile");
flock(ICNT,2);
print ICNT "$count";
flock(ICNT,8);
close(ICNT);
open(OCNT,"$contfile");
$number = <OCNT>;
#-------------------