Perl：使用 Text::CSV 我可以写出哈希引用吗？

Question

我有一个 Perl 脚本，它读取 CSV 文件，更改原始列名称，添加新列名称（输出 CSV 列名称存储在数组 header_line 中），为读取的每一行添加新字段值，然后写出一个新的 CSV 文件。

感谢 @harleypig 对我的上一个问题的评论，我' d 喜欢使用：

$csv_i->column_names( @header_line);
$row = $csv_i->getline_hr($fh_i)

因为这让我可以使用有意义的名称而不是幻数轻松访问行字段。例如：

$row->{ 'name' } = get_fullname($row->{ 'name' });

现在唯一的问题是，写出该行的最佳方式是什么？以前，我使用过：

$csv_o->print( $fh_o, $row ); 

但这失败了，因为它需要一个数组引用。如何使用 csv_o 对象写出哈希引用？

Answer 1

使用 哈希切片：

$csv_o->print( $fh_o, [ @$row{@header_line} ] );

map 版本也可以工作，但是切片速度更快：

use Benchmark 'cmpthese';

my @header_line = qw(a b c d e f g);
my $row = { map { $_ => $_ } @header_line };

my $array;

cmpthese(-3, {
  slice => sub {
    $array = [ @$row{@header_line} ];
  },

 map => sub {
    $array = [ map { $row->{$_} } @header_line ];
  },
});

给我：

          Rate   map slice
map   282855/s    --  -42%
slice 487898/s   72%    --

Answer 2

快速浏览一下文档，我认为您不容易做到。您必须将 hashref 转回（按列排序）数组，如下所示：

$csv_o->print( $fh_o, [ map { $row->{$_} } @header_line ] );