配列の値をキーにしたハッシュを作成する – Perl

  • このエントリーをはてなブックマークに追加
  • LINEで送る
この記事は 2007年6月2日 に書かれたものです

配列Aに入っている全ての値を、ハッシュHのキーにしたい。これは一行で解決する。

- Sponsored Link -

サンプル

#!/usr/bin/perl

;#
;#配列の値をキーにしたハッシュを作成
;#

use strict;
use Data::Dumper;

#---------------------------------------#
#準備
#---------------------------------------#
my @a = (0..9);
my %h = ();

#---------------------------------------#
#作成
#---------------------------------------#
@h{@a} = ('a'..'j');

#---------------------------------------#
#表示
#---------------------------------------#
print Dumper(\%h);

実行結果

左辺がハッシュのキー、右辺が値

$VAR1 = {
          '6' => 'g',
          '3' => 'd',
          '7' => 'h',
          '9' => 'j',
          '2' => 'c',
          '8' => 'i',
          '1' => 'b',
          '4' => 'e',
          '0' => 'a',
          '5' => 'f'
        };

ここではハッシュの値を('a'..'j')としたが、「@h{@a} = ();」とすればすべて空にもできるし、「@h{@a} = ( (1) x ($#a+1));」などとすれば1が全ての値となる。もちろん別の配列(リスト)を持ってきても良い。

コメント

ご感想やご質問などお気軽にどうぞ。書き込むにはfacebookへのログインが必要です。

このブログを応援する

お寄せいただいたお気持ちは全額サーバ代や次の記事を執筆するための原資として活用させていただいております。この記事が参考になった場合などぜひご検討ください。

PayPal(ペイパル)
PayPalで300円支払う
※金額は任意で変更できます。
※100円でも泣いて喜びますw
※住所の入力欄が現れた場合は「no needed」を選択ください
これまでのご協力者さま
- Sponsored Link -