「Perl」pushで配列の末尾に値を追加するサンプル

2022年4月8日

環境
Perl　　5.32.1
Windows10 home 64bit

書式
my @配列名 = (要素1,要素2,xxx);
配列の末尾に値を追加する方法
方法1
$配列名「インデックス」=値
インデックスを指定して値を配列の末尾に追加しています。
方法2
push @配列目,要素

使用例

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

my @city = ("東京*","大阪*","福岡*");

$city[3] = "横浜*";

print ($city[0]); # 東京*
print ($city[1]); # 大阪*
print ($city[2]); # 福岡*
print ($city[3]); # 横浜*

push @city,'test';

print ($city[4]); # test

実行結果
>perl 11.pl
東京*大阪*福岡*横浜*test