「Perl入門」ハッシュの初期化にリストを指定するサンプル
環境
Perl 5.32.1
Windows10 home 64bit
書式
my @ハッシュ名 = (キー1,値1,xxx);
ハッシュはキーと値をペアとして使用しますのでリストを指定する場合にはキーと値を交互に指定します。
ハッシュの初期化にリストを指定します。
my @ハッシュ名 = (
キー1 => 値1,
略
キーn => 値n
);
my @ハッシュ名 = (
キー1 => 値1,
略
キーn => 値n
);
my @ハッシュ名 = ( キー1 => 値1, 略 キーn => 値n );
使用例
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';
my %city = (
"tokyo" => "東京都",
"oosaka" => "大阪",
"yokohama" => "横浜"
);
print "$city{'tokyo'}";
print "\n";
print "$city{'oosaka'}";
print "\n";
print "$city{'yokohama'}";
print "\n";
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';
my %city = (
"tokyo" => "東京都",
"oosaka" => "大阪",
"yokohama" => "横浜"
);
print "$city{'tokyo'}";
print "\n";
print "$city{'oosaka'}";
print "\n";
print "$city{'yokohama'}";
print "\n";
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';
my %city = (
"tokyo" => "東京都",
"oosaka" => "大阪",
"yokohama" => "横浜"
);
print "$city{'tokyo'}";
print "\n";
print "$city{'oosaka'}";
print "\n";
print "$city{'yokohama'}";
print "\n";
実行結果
>perl 13.pl
東京都
大阪
横浜