ふと配列のインデックスをラップアラウンドする必要があって、考えてみたらこんなのにしばらく悩んでけっこう凹んだ。 元のはVimスクリプトだったんだけどPerlで。 #!/usr/bin/env perl use strict; use warnings; use Test::More; sub array_get_elem { my …