- 配列の頭に付けるのは@であるから、その後の配列の要素の列挙においてハッシュを宣言する。このときハッシュの各要素は {...} でくくって 「key => value」 としている。それぞれの要素はカンマ(,) で区切る。配列の宣言の最後はセミコロン (;) である。
- 各要素へのアクセスはまず配列を foreach でほぐす。ほぐした各要素は $db->{key} のように -> でアクセスできる。
#!/usr/bin/perl
# 定義
@DBs =
( # Iteration of the parameters
{
DB => 'db1_name', # Database Name
USERNAME => 'db1_username', # Username
PASSWORD => 'db1_password', # Password
},
{
DB => 'db2_name', # Database Name
USERNAME => 'db2_username', # Username
PASSWORD => 'db2_password', # Password
}
);
# アクセス
foreach my $db ( @DBs ) {
print "DB name : $db->{DB}\n";
print "Username: $db->{USERNAME}\n";
print "Password: $db->{PASSWORD}\n";
print "\n";
}
トラックバック URL:
https://perltips.twinkle.cc/trackback/17