[関数の使い方･書式]

○ ＝ shift [☆]

☆：配列変数。
  ･･･ 省略時はメインプログラムでは @ARGV、サブルーチン内では @_ が対象となる。
○：取り除かれた要素。　･･･　要素がない場合は未定義値。

---

[関数の機能]

配列☆の先頭要素を取り除き、その要素を返します。 取り除かれた配列☆の長さ(要素数)は１減少し、それぞれの要素を示すインデックスも１小さくなります。

---

[書式の例]

１．$element = shift;

配列 @_ の先頭要素を切り抜き、変数 $element にセットします。

２．$element = shift @array;

配列 @array の先頭要素を切り抜き、変数 $element にセットします。

● 先頭の要素を末尾に移動する
push(@array, shift(@array));

● ファイルハンドルを型グロブで渡す
typeglob_fh(*STDOUT);
sub typeglob_fh {
	local *FH = shift;
	print FH "indirect filehandle\n";
}

● ファイルハンドルをリファレンスで渡す
ref_fh(\*STDOUT);
sub ref_fh {
	my $fh = shift;
	print $fh "indirect filehandle\n";
}