「Perl」push関数で配列の末尾に値を追加するサンプル
構文
push @配列名,文字列;
使用例
#! /usr/bin/perl
use strict;
use warnings;
my @cft = ("A001","B002","C003");
print ($cft[0]);
print ($cft[1]);
print ($cft[2]);
push @cft,'D004';
print ($cft[3]);
#! /usr/bin/perl
use strict;
use warnings;
my @cft = ("A001","B002","C003");
print ($cft[0]);
print ($cft[1]);
print ($cft[2]);
push @cft,'D004';
print ($cft[3]);
#! /usr/bin/perl
use strict;
use warnings;
my @cft = ("A001","B002","C003");
print ($cft[0]);
print ($cft[1]);
print ($cft[2]);
push @cft,'D004';
print ($cft[3]);
実行結果
A001
B002
C003
D004