普通にやる場合、Tie::IxHashを使うのが楽ですが、 今回は自前実装してみました。 package Sorauta::Util::Iterator; use 5.010000; use strict; use warnings; use Carp qw/croak/; our($YES, $NO) = qw/1 0/; #===================== # #=================…