「Perl」unshift関数で配列の先頭に値を追加する

2022年4月8日

環境
Perl　　5.32.1
Windows10 home 64bit

書式
my @配列名 = (要素1,要素2,xxx);
unshift @配列名,要素;
unshift関数を使って配列の先頭に要素を追加います。
使用例

use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @name = ("山田*","山城*","小林*");

unshift @name,"山本*";

print ($name[0]); # 山本*
print ($name[1]); # 山田*
print ($name[2]); # 山城*
print ($name[3]); # 小林*

実行結果
>perl 12.pl
山本*山田*山城*小林*