使用 Data::Dumper 打印 IO::All 的返回？

Question

考虑一下这个sn-p：

use Data::Dumper;

@targetDirsToScan = ("./");
use IO::All;
$io = io(@targetDirsToScan);                # Create new directory object
@contents = $io->all(0);                    # Get all contents of dir
for my $contentry ( @contents ) {
  print Dumper($contentry) ."\n";
}

这会打印如下内容：

$VAR1 = bless( \*Symbol::GEN298, 'IO::All::File' );
$VAR1 = bless( \*Symbol::GEN307, 'IO::All::Dir' );
$VAR1 = bless( \*Symbol::GEN20, 'IO::All::File' );
...

我希望我会转储各个对象的所有字段；起初，我认为这是一个引用，所以我认为如果我取消引用变量，字段会被打印出来 - 但我意识到我真的不知道如何取消引用它。

那么 - 我如何使用相同类型的 for my ... 循环打印出 @contents 的所有字段和内容？

Answer 1

你可以这样做：

use Data::Dumper;
use IO::All;

$io = io('/tmp');
for my $file ( $io->all(0) ) {
   print Dumper \%{*$file};
}

但是您应该认真考虑这样做是否是一个好主意。面向对象编程的核心原则之一是封装。您不应该关心受祝福对象的内脏 - 您应该仅通过它提供的方法与它进行交互。