perl中的對象類名稱

Question

我有點初學者perl我需要知道如何檢查對象類的名稱。

我的代碼是：

foreach my $y (keys %$x) { 
    print "$y\t$x->{$y}\n"; 
} 

與輸出：

154176568  [object HTMLImageElement] 
146292140  [object HTMLDocument] 
153907016  [object HTMLImageElement] 

我需要打印只是按鍵是HTMLImageElement對象。

現在的問題是：

（1）我怎樣才能檢查類名

（2）我怎樣才能得到 /打印類名

Answer 1

看着the source for JE，它看起來像JE::Object::Proxy是JE::Object子類，JE::Object有一個字串方法（use overload fallback => 1, ... '""' => 'to_string' ...）。

所以，當你做print "$y\t$x->{$y}\n";，這是打印字符串$x->{$y}的結果。

您可以通過將對象放在雙引號中對其進行字符串化，所以"$x->{$y}"。這個表達將具有諸如你看到被打印的值，例如， '[object HTMLImageElement]'。

如果你想拿起僅HTMLImageElement對象，那麼你可以使用像

"$x->{$y}" eq '[object HTMLImageElement]' 

表達式如果你特別要提取字符串化值的字符串'HTMLImageElement'檢查這些，你可以做使用正則表達式，例如

("$x->{$y}" =~ m{^\[object (.*)\]$}so)[0] 

不過，看着the source for JE::Object::Proxy，JE::Object::Proxy有一個方法class可能也許返回的對象是一個代理類的名稱。因此，您可以使用$x->{$y}->class獲得課程名稱，然後可以直接在$x->{$y}->class eq 'HTMLImageElement'中進行測試。

Answer 2

如果你想有一個字符串表示類名，使用ref（$ object）。這將返回一個變量的引用類型，對於perl對象，這個變量最終成爲祝福對象的包。

如果您想簡單地檢查變量是否是某個類的實例，請使用isa（）方法。例如：

if ($obj->isa('Animal::Dog')) { 
    push @dogs, $obj; 
} 

Answer 3

在Perl中，所有類都神奇地擴展了UNIVERSAL包。它有一個叫做isa()，你可以用它來做到這一點的方法：

foreach my $y (keys %$x) { 
    if($x->{$y}->isa('HTMLImageElement')) { 
     print "$y\t$x->{$y}\n"; 
    } 
}