Perl データ構造について

Question

とある変数のデータ構造をDumpしました。

$VAR1 = {
          '23456' => bless( {
                              'code' => '23456'
                            }, 'Entity::Program' ),
          '12345' => bless( {
                              'code' => '12345'
                            }, 'Entity::Program' )
        };

この変数の扱い方を２点ほど知りたいです。

1. '23456'の値を取り出したい時どうすればよいか？
2. ハッシュに変換出来ないか？

ハッシュであれば、23456がkeyで、blessされたオブジェクトがvalueです。
unblessするとEntity::Programが失われるみたいです。

よろしくお願いいたします。

Answer 1

こうでしょうか？

my $a = $VAR1->{'23456'};
printf "[%s]\n", $a; #=> [Entity::Program=HASH(0x2003bca8)]

my %h = %{$VAR1};
while (my ($k, $v) = each %h) {
  printf "[%s]=[%s]\n", $k, $v;
}
# => [23456]=[Entity::Program=HASH(0x2003bca8)]
# => [12345]=[Entity::Program=HASH(0x20072920)]

Comments

[退会済みユーザー]

ありがとうございます！解決しました。