Perlで+を使うと幸せになれるよ (*´Д`)ﾉ - (ﾟ∀ﾟ)o彡 sasata299's blog

2009年06月12日00:04 Perl Perlで+を使うと幸せになれるよ (*´Д`)ﾉ use constant を使って、リファレンスを定数として宣言するときってたまにありますよね。こういう値をデリファレンスするにはどうしていますか？？僕はこうしていました＞＜ #!/usr/bin/perl use strict; use warnings; use constant DATA => { aaa => 1, bbb => 2, ccc => 3, }; my $data = DATA; print join " ", keys %{$data}; # aaa bbb ccc 一度変数に値を入れるあたり、何かいまいちですね。。。この解決策を実は今日たまたまプログラミングPerlを読んでいて発見しました。こんな風に+を定数の前に付けてあげれば、文字列ではなく定数宣言された値だと判断し

[gomayumax]

そういうことかーーーーーー

[saihateno]

へ～なるほど

[lymr09]

しらなかった。

[hide-K]

print join ' ', keys %{&DATA};