 |
 |
 |
構文 |
|
|
shift 配列 |
|
返り値 |
|
|
配列の先頭の値 |
|
説明
- 配列の先頭の値を削除します。
- 削除した値を返します。
- 引数を省略した場合，サブルーチン内では@_，それ以外の場所では@ARGVが対象になります。
使用例
配列@itemsの先頭の要素を削除する
#!/usr/bin/perl
use strict;
use warnings;
my @items = ('one', 'two', 'three');
my $head = shift @items;
print $head, "\n";
print "\n";
foreach my $item (@items) {
print $item, "\n";
}サブルーチンの引数をshiftで取得する
#!/usr/bin/perl
use strict;
use warnings;
print max(10, 100), "\n";
print max(10, -100), "\n";
sub max {
my $n = shift;
my $m = shift;
return ($n > $m) ? $n : $m;
}
