2005-02-03 ■ perl push(@RZ , shift(@RZ)); #配列の先頭要素を最後尾に付加の逆は、 unshift(@RZ , pop(@RZ)); #配列の最後尾の要素を先頭に付加だけど、 @RZ = reverse(@RZ); #配列を逆順に push(@RZ , shift(@RZ)); #配列の先頭要素を最後尾に付加 @RZ = reverse(@RZ); #配列を逆順にこうしてた…。あ、タブでそろって気持ちいいな。