4.12 配列内の複数の要素を一度に処理する
# @ARRAYの先頭から$N個の要素を削除する @FRONT = splice(@ARRAY, 0, $N); # @ARRAYの末尾から$N個の要素を削除する @END = splice(@ARRAY, -$N); # shift2 sub shift2 (\@) { return splice(@{$_[0]}, 0, 2); } # pop2 sub pop2 (\@) { return splice(@{$_[0]}, -2); }
# @ARRAYの先頭から$N個の要素を削除する @FRONT = splice(@ARRAY, 0, $N); # @ARRAYの末尾から$N個の要素を削除する @END = splice(@ARRAY, -$N); # shift2 sub shift2 (\@) { return splice(@{$_[0]}, 0, 2); } # pop2 sub pop2 (\@) { return splice(@{$_[0]}, -2); }