ใช้ array_shtft 2 ครั้งมันน่าเกลี่ยดไหมฮะนี่
ถ้าเป็น Perl เขียนเป็น array_shift($var) x 2; ก็พอดูได้
ก็เลย เกิดความสงสัยนิดหน่อย เพราะ รู้ว่า perl ไม่มี function array_shift นี่หน่า
ก็เลย เขียน code ตัวอย่างไว้ให้เจ้าของ โพส นิดหน่อย
แล้วก็เอามา ลง blog เผื่อมีคนขี้เกียจคิด (แต่จริงๆ แล้วมันได้ต้องคิดเลยนะเนี้ย -.,-'')
sub shift2 (\@) {return splice(@{$_[0]}, 0, 2);}
sub pop2 (\@) {return splice(@{$_[0]}, -2);}
