perl - 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

在 Perl 中，所有类都神奇地扩展了 UNIVERSAL 包。它有一个名为 isa() 的方法，您可以使用它来执行此操作:

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