分かりやすく、使いやすく。

配列の先頭に要素を追加する方法(unshift)

スポンサーリンク

Perl で配列の先頭に要素を追加するには unshift を使用します。

  1. 書式
  2. サンプルコードと実行結果


書式

perl(書式)
1
unshift(配列, 配列に追加する値); 

サンプルコードと実行結果

perl(実行可能なサンプルコード)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use strict;
 
my @names = ('三郎', '四朗', '五郎');
 
# 先頭に次郎を追加
unshift(@names, '次郎');
 
print "中身を確認します(1回目)\n";
 
foreach(@names){
  print "$_\n";
} 
 
# 先頭に太郎を追加
unshift(@names, '太郎');
 
print "中身を確認します(2回目)\n";
 
foreach(@names){
  print "$_\n";
}  
中身を確認します(1回目)
次郎
三郎
四朗
五郎
中身を確認します(2回目)
太郎
次郎
三郎
四朗
五郎 
スポンサーリンク