ある意味、露出狂です。 ふと思い立ち、三方陣を解くプログラムを書きました。所要時間はデバグ含めて15分ほど。デバグが10分くらいかかりました。 use strict; use utf8; my @q = ( [-1,-1,-1], [-1, 5,-1], [-1, 3, 8], ); # 正解か判定 sub check($){ my …

worker MPM + mod_perl2 のおはなしです。MyPackage.pm の中に、 use threads::shared; our $counter : shared = 0; なんて書いておいて、スレッド間でカウンタを共有しようと思ったんですが、どうも動かないみたいなんです。worker MPM + mod_perl2 で変数…