うまく動かないので自分で修正してみた。 file.plのwrite_delメソッドを open(OUT, "> $self->{'log_path'}/${file_name}"); flock(IN, 2); for ($i = 0; $i < $self->{'total'}+1; $i++) { # 削除メッセージ next if ($del_number == $i); $self->write_one…

むぅ、結局前回はどこを間違えたのか分からなかった。今回は前回の10問目(自分で問題を作るやつ)を集めた問題だった。 ちなみに今回の10問目も同じ、ずっとこの形式でいくのだろう。 そのほうが出題者も楽だし、参加者の知識を共有することができるので、 ぜ…