Perl


ハッシュのネスト(入れ子)

1つのキーに対して複数のデータを持たせる

perl コード
メインのキー: docomo 等 にサブキー Domain とURL を持たせ
それぞれのデータを定義する。
値を取り出す場合は以下ように記述する。
 $data{'メインキー'}{'サブキー'}

docomo のメールドメインを取り出す場合は
 $data{'docomo'}{'domain'}

ホームページURLを取り出す場合は
 $data{'docomo'}{'URL'}


%data = (
        'docomo'   => {'Domain' => 'docomo.ne.jp',
                       'URL'    => 'http://www.nttdocomo.co.jp'},
        'softbank' => {'Domain' => 'softbank.ne.jp',
                       'URL'    => 'http://www.softbank.co.jp'},
        'au'       => {'Domain' => 'eqweb.ne.jp',
                       'URL'    => 'http://www.au.kddi.com'},
        'willcom'  => {'Domain' => 'pdx.ne.jp',
                       'URL'    => 'http://www.willcom-inc.com'},
        );

foreach $key (sort keys %data){
  print $key."\n";
  print "  Domain: ";
  print $data{$key}{'Domain'}."\n";
  print "  URL   : ";
  print $data{$key}{'URL'}."\n";
}

実行結果
au
  Domain: eqweb.ne.jp
  URL   : http://www.au.kddi.com
docomo
  Domain: docomo.ne.jp
  URL   : http://www.nttdocomo.co.jp
softbank
  Domain: softbank.ne.jp
  URL   : http://www.softbank.co.jp
willcom
  Domain: pdx.ne.jp
  URL   : http://www.willcom-inc.com



      Document-Folder          一覧
HP-UX
HULFT
JAVA
JP1
JavaScript
Linux
MAC
PHP
Perl
Python
Ruby
SOA
Solaris
Unix全般
Windows
XML
エクセル
スタイルシート
セキュリティー
データベース
ネットワーク
パソコン
ブラウザ
プログラム構文
仮想化
          RSS-Folder
ニュース
   アットマーク・アイティ(@IT)
   シンクイット(ThinkIT)
   インターネットコム
   インターネットウォッチ
   日経IT-Pro
   日経パソコン
   CNET Japan
   ZD-NetJapan
   MYCOM
   RBB-Today
ベンダー
   日本IBM
   日本HP
   サンマイクロシステムズ
   NEC
   富士通
   日立
ソフトウェア
   マイクロソフト
   トレンドマイクロ
   オラクル
   サイボウズ
   Mozilla
   野村総合研究所
   (その他ソフトウェア企業)
更新履歴 一覧
 07/08 PERF
プログラム構文
 07/07 PERF
プログラム構文
 06/25 オブジェクトプログラミング2
Perl>サンプル
 07/12 クローン作成
仮想化>vCenter
 07/12 vyatta設定
ネットワーク>vyatta
 07/12 vyattaインストール
ネットワーク>vyatta
 07/12 リポジトリサーバ
Linux>サーバ構築
 07/05 VMwareのインストール
仮想化>VMware
 07/05 PXEブート
仮想化>KVM
 07/01 DHCPでのPXEブート
仮想化>KVM
 06/27 qcow2仮想DISK作成
仮想化>KVM
 06/13 NWの設定
仮想化>VMwareEsxi
 06/13 IPアドレスの変更
仮想化>VMwareEsxi
 06/12 自動ssh
Unix全般>シェル>Bash
 06/12 diffプログラミング
Python
Google