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 に書き出す部分はどこ?
[上に]
[前に]
[次に]