ホーム » ブログ » yasさんのブログ

Perl での、配列とハッシュの組み合わせのデータ構造

  1. 配列の頭に付けるのは@であるから、その後の配列の要素の列挙においてハッシュを宣言する。このときハッシュの各要素は {...} でくくって 「key => value」 としている。それぞれの要素はカンマ(,) で区切る。配列の宣言の最後はセミコロン (;) である。
  2. 各要素へのアクセスはまず配列を 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
Posted on 2005-10-18 by yas |