$var = 10;

(値1, 値2, 値3, ...)

(1, 2, 3)

("男性", "女性")

リストを変数に格納する

(変数1, 変数2, 変数3, ...) = (値1, 値2, 値3, ...);

変数1 = 値1;
変数2 = 値2;
変数3 = 値3;

my ($var1, $var2, $var3);
($var1, $var2, $var3) = ("月曜", "火曜", "水曜");

サンプルプログラム

# リストとは
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my ($var1, $var2, $var3);

($var1, $var2, $var3) = ("月曜", "火曜", "水曜");

print "$var1\n";
print "$var2\n";
print "$var3\n";

[xxxxxxxx@dddddddddd Array]$ perl test1-1_u.pl | nkf -w
月曜
火曜
水曜
[xxxxxxxx@dddddddddd Array]$ 

my ($str1, $str2);
my $name = "伊藤";

($str1, $str2) = ($name, "東京都");

my ($num1, $num2);
my $zei = 0.5;

($num1, $num2) = (20 * $zei, 800);

my ($num1, $num2);
$num1 = 30;
$num2 = 20;

($num1, $num2) = ($num2, $num1);

サンプルプログラム

# リストの要素に変数を使用
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my ($str1, $str2);
my $name = "伊藤";

($str1, $str2) = ($name, "東京都");

print "$str1\n";
print "$str2\n";

my ($num1, $num2);
my $zei = 0.5;

($num1, $num2) = (20 * $zei, 800);

print "$num1\n";
print "$num2\n";

($num1, $num2) = ($num2, $num1);

print "$num1\n";
print "$num2\n";

[xxxxxxxx@dddddddddd Array]$ perl test2-1_u.pl | nkf -w
伊藤
東京都
10
800
800
10
[xxxxxxxx@dddddddddd Array]$ 

my ($seiseki1, $seiseki2, $seiseki3);
$seiseki1 = 80;
$seiseki2 = 75;
$seiseki3 = 69;

print "$seiseki1\n";
print "$seiseki2\n";
print "$seiseki3\n";

my @seiseki;
$seiseki[0] = 80;
$seiseki[1] = 75;
$seiseki[2] = 69;

print "$seiseki[0]\n";
print "$seiseki[1]\n";
print "$seiseki[2]\n";

my @seiseki;
$seiseki[0] = 80;
$seiseki[1] = 75;
$seiseki[2] = 69;

for (my $i = 0; $i < 3; $i++){
  print "$seiseki[$i]\n";
}

サンプルプログラム

# 配列とは
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @seiseki;
$seiseki[0] = 80;
$seiseki[1] = 75;
$seiseki[2] = 69;

for (my $i = 0; $i < 3; $i++){
  print "$seiseki[$i]\n";
}

[xxxxxxxxx@dddddddddd Array]$ perl test3-1_u.pl | nkf -w
80
75
69
[xxxxxxxxx@dddddddddd Array]$ 

@配列名

my @name;

配列への値の格納と取得

$配列名[インデックス] = 値;

my @seiseki;
$seiseki[0] = 80;
$seiseki[1] = 75;

my @seiseki;
$seiseki[0] = 80;
$seiseki[1] = 75;
$seiseki[2] = 65;

my @seiseki;
$seiseki[0] = 80;
$seiseki[1] = 75;
$seiseki[2] = 65;
$seiseki[5] = 92;

my @seiseki;
$seiseki[0] = 80;
$seiseki[1] = 75;
$seiseki[2] = 65;

print "$seiseki[1]\n";

サンプルプログラム

# 配列の宣言と要素へのアクセス
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @seiseki;
$seiseki[0] = 80;
$seiseki[1] = 75;
$seiseki[2] = 69;
$seiseki[5] = 91;

print "$seiseki[5]\n";

[xxxxxxxx@ddddddddddd Array]$ perl test4-1_u.pl | nkf -w
91
[xxxxxxxx@ddddddddddd Array]$ 

my @配列名 = (値1, 値2, ... , 値n);

my @name = ("伊藤", "加藤", "山田");

my @name;
$name[0] = "伊藤";
$name[1] = "加藤";
$name[2] = "山田";

配列の宣言時以外にリストを代入

my @name;
@name = ("伊藤", "加藤", "山田");

my @num;
$num[0] = 10;
$num[1] = 9;
$num[2] = 24;

@num = (3, 7);

my @num;
$num[0] = 10;
$num[1] = 9;
$num[2] = 24;

($num[0], $num[1]) = (3, 7);

my @num;
$num[0] = 10;
$num[1] = 9;
$num[2] = 24;

@num = ();

サンプルプログラム

# 配列の初期化
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @name = ("伊藤", "工藤", "山田");
$name[3] = "高橋";
$name[1] = "安藤";

for (my $i = 0; $i < 4; $i++){
  print "$name[$i]\n";
}

[xxxxxxxx@dddddddddd Array]$ perl test5-1_u.pl | nkf -w
伊藤
安藤
山田
高橋
[xxxxxxxx@dddddddddd Array]$ 

qw/ 対象となる文字列 /

qw/ 東京 大阪 名古屋 福岡 /

('東京', '大阪', '名古屋', '福岡')

my @pref = qw/ 東京 大阪 名古屋 福岡 /;

qw演算子の区切り文字

qw( 対象となる文字列 )
qw{ 対象となる文字列 }
qw[ 対象となる文字列 ]
qw< 対象となる文字列 >

my @sample = qw/ abc d\/g eea /;

my @sample = qw( abc d/g eea );

サンプルプログラム

# qw演算子
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @name = qw/ 伊藤 工藤 山田 /;

for (my $i = 0; $i < 3; $i++){
  print "$name[$i]\n";
}

[xxxxxxxx@dddddddddd Array]$ perl test6-1_u.pl | nkf -w
伊藤
工藤
山田
[xxxxxxxx@dddddddddd Array]$ 

my @count = (11, 12, 13, 14, 15);

(開始数..終了数)

my @count = (11..15);

my @count = (1..5, 10, 15, 31..33);

my @count = (1, 2, 3, 4, 5, 10, 15, 31, 32, 33);

サンプルプログラム

# 範囲演算子
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @num = (10..14, 20);
my $count = @num;

for (my $i = 0; $i < $count; $i++){
  print "$num[$i]\n";
}

[xxxxxxxx@dddddddddd Array]$ perl test7-1_u.pl | nkf -w
10
11
12
13
14
20
[xxxxxxxx@dddddddddd Array]$ 

my @array = ("1月", "2月");

my $length = @array;

サンプルプログラム

# 配列の要素数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @array = ("1月", "2月");

my $length = @array;

print "要素数 $length\n";
print @array;
print "\n";

[xxxxxxxx@dddddddddd Array]$ perl test8-1_u.pl | nkf -w
要素数 2
1月2月
[xxxxxxxx@dddddddddd Array]$ 

$#配列名

my @str = ("1月", "2月", "6月");

$str[$#str] = "3月";

my @str = ("1月", "2月", "6月");

$#str = 1;

要素数 = 最後のインデックス + 1

サンプルプログラム

# 配列の最後のインデックス
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @str = ("1月", "2月", "6月");

$str[$#str] = "3月";
for (my $i = 0; $i <= $#str; $i++){
  print "$str[$i]\n";
}

$#str = 1;
for (my $i = 0; $i <= $#str; $i++){
  print "$str[$i]\n";
}

[xxxxxxxx@dddddddddd Array]$ perl test9-1_u.pl | nkf -w
1月
2月
3月
1月
2月
[xxxxxxxx@dddddddddd Array]$ 

my @name = ("加藤", "山田", "林");
print "登録されているのは @name です";

my @name = ("加藤", "山田", "林");
print '登録されているのは @name です';

展開時の配列名と文字列の区切り

my @name = ("加藤", "山田", "林");
print "Hello,@{name}san";

特別変数「$"」

my @name = ("加藤", "山田", "林");
$" = ",";
print "登録されているのは @name です";

サンプルプログラム

# 文字列中に含まれる配列の変数展開
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @name = ("加藤", "山田", "林");
print "登録されているのは @name です\n";
print '登録されているのは @name です';

print "\n";
$" = ",";
print "登録されているのは @name です\n";

[xxxxxxxx@dddddddddd Array]$ perl test10-1_u.pl | nkf -w
登録されているのは 加藤 山田 林 です
登録されているのは @name です
登録されているのは 加藤,山田,林 です
[xxxxxxxx@dddddddddd Array]$ 

my @array = ("東京", "大阪", "名古屋");
for (my $i = 0; $i <= $#array; $i++){
  print "$array[$i]\n";
}

my @array = ("東京", "大阪", "名古屋");
foreach my $i(0 .. $#array){
  print "$array[$i]\n";
}

my @array = ("東京", "大阪", "名古屋");
foreach my $var(@array){
  print "$var\n";
}

サンプルプログラム

# 配列と繰り返し処理
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @name = ("加藤", "山田", "林");
foreach (@name){
  print "$_\n";
}

[xxxxxxxx@dddddddddd Array]$ perl test11-1_u.pl | nkf -w
加藤
山田
林
[xxxxxxxx@dddddddddd Array]$