perlの変数について

Question

当方perlの知識が浅いですが、よろしくお願いします。

perlの勉強中でして、
perlで書かれたスクリプトを読んでいるのですが、
いまいち理解できない文がありましたので、それらの意味を知りたいと思っております。

---

■ 実施環境
・ perl 5.10
・ CentOS6.5

■ 対象の構文-1

my $object = ();

まず、上記の文について、$objectを何として宣言しているのでしょうか。
ハッシュ（連想配列？）で宣言するのであれば、%objectという形で
宣言しなければいけない気もするのですが・・
これは、通常の変数をハッシュとして宣言している？のでしょうか。

■ 対象の構文 - 2

print "ERROR" if(!%$object)

上記の文について、%$objectという部分の意味がわかりません。
そもそもこういった変数の表し方は正しいのでしょうか・・？
もし、この書き方が正しいとして、どういう意味になるのでしょうか。

---

抽象的な質問になり申し訳ございません。
何卒よろしくお願いします。

Answer 1

おそらく$objectがハッシュのリファレンスとして初期化されているかどうかをチェックしたいのだと思います。

１の

my $object = ();

というのは、実は

my $object = undef;

と同じ意味に（たぶん）なっています。
つまり、スカラーの未定義変数になります。defined関数を使うとfalseつまりundefになっているのが分かります。
なので、これはmy $object = undefと書いた方が分かり易いです。

２では%$objectとしてハッシュのリファレンスをデリファレンスをしたものを評価して、それがfalseになるかどうかを判定しています。

以下のコードを実行してみると、$objectにハッシュのリファレンスが設定されていて中身がある時だけエラーにならないのが分かります。

my $object = undef; # 未定義
print "ERROR\n" if(!%$object); # ERROR

$object = 1; # スカラー
print "ERROR\n" if(!%$object); # ERROR

$object = {}; # 空のハッシュのリファレンス
print "ERROR\n" if(!%$object); # ERROR

$object = ( key1 => "value1" ); # リファレンスでないハッシュ
print "ERROR\n" if(!%$object); # ERROR

$object = { key1 => "value1" }; # 空でないハッシュのリファレンス
print "ERROR\n" if(!%$object); # not print ERROR