shift - 車輪のx発明 ~B.G's Blog~

shiftに配列を渡すと、配列の先頭の要素を取り出して、配列の要素をひとつずつ前にずらす。

まず、リストで配列を初期化し、配列の要素をfor文で出力。
shiftで取り出した要素を$strに格納し出力。
ふたたび配列の要素をfor文で出力。

$ vi shift.pl
$ perl shift.pl
$array[0] = 100
$array[1] = 200
$array[2] = 300
$str = 100
$array[0] = 200
$array[1] = 300
$

1回目の配列出力では、0番目の要素だった100が、shiftで取り出され$strに格納され、2回目では0番目は200となった。