Locking test

# ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ # 処理データの表示サブルーチン # # sub DataView { my($ERRR) = @_; &header; print "$ERRR\n"; print "\n"; print "\n"; print '通算ロック回数は、'; print "【$lockCount】"; print "です。\n"; print "\n"; print "\n"; if ($lockCount >= 1) { $dummy_LK =0; @numberList0_of_array = ( $dummy_LK, $Sym_IP0_LK, $mini_IP0_LK, $Sym_0_LK, $mini_0_LK, $pwFile_pre_LK, $pwFile_LK, $Bigger_LK, $Sym_1i_LK, $mini_f_LK, $cokSrc_pre_LK, $mini_i_LK, $cokSrc_i_LK, $cokSrc_f_LK, $Sym_IP1_LK, $Sym_IP2_LK, $Sym_1_LK, $Sym_2_LK, $mini_IP1_LK, $mini_IP2_LK, $mini_1_LK, $mini_2_LK, $pastCNTmin_LK, $psIDwork, $LgdlchkGo, $pswCookREC, $psDateMgr, $dHjlIfI, $elHIjfItI ) ; $yousoSuu_of_array = @numberList0_of_array ; $checkYousoSuu = $yousoSuu_of_array - 1 ; for($n = 1; $n <= $checkYousoSuu; $n++) { if ($numberList0_of_array[$n] != 0) { print "\n"; print "\n"; print '@numberList0_of_array 、、'; print "第$n番目の値・・$numberList0_of_array[$n]回目のロック処理"; print "です。\n"; print "\n"; $nn = $numberList0_of_array[$n] ; print '$Locked_Key[$nn] 、、'; print "第$nn番目の値は、$Locked_Key[$nn]"; print "です。\n"; print "\n"; print '$Locked[$nn] 、、'; print "第$nn番目の値は、$Locked[$nn]"; print "です。\n"; print "\n"; print '$LockHandle[$nn] 、、'; print "第$nn番目の値は、$LockHandle[$nn]"; print "です。\n"; print "\n"; } else { next; } } } print <
以上は、ロック処理の【ロック処理履歴・情報-配列】のデータです。

DatVWhtm print "

\n"; print "\n"; } # ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ # ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ # HTMLヘッダサブルーチン # # sub header { if ($headflag) { return; } print "Content-type: text/html\n\n"; print < Locking test htmEOM $headflag=1; } # ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝