[perl] ดึง สมาชิก ออกจาก array ทีละ 2 ตัว

เห็นโพสที่ว่า



ใช้ 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);}