CGI（perl）でカウンタが"２"で止まってしまう？？？

さる [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>;
#-------------------

B-Cus 1999/12/24(金) 12:22:02
> $count = split(/-/,$cnt);
$count にはどういう値を入れたいんですか?
split した *個数* でいいの?

というか、/-/ で split する意図は何ですか?
次に - を $contfile に書き出す部分はどこ?

[上に] [前に] [次に]