在 perl 中将表单布局转换为表格 (csv) 布局答案

【问题标题】：Converting form layout to table (csv) layout in perl在 perl 中将表单布局转换为表格 (csv) 布局
【发布时间】：2012-09-26 16:13:21
【问题描述】：

我有一个输入文件

输入文件.txt

        name: George
         age: 5
      nature: curious
       likes: banana

这就是我所说的表单布局。我正在尝试将其转换为表格布局 CSV。例如：

name,age,nature,likes
George,5,curious,banana

所以，我读取了文件，在 ": 和 \n" 上拆分并将值放入哈希中。然后将该散列推入一个数组，以便我稍后将它们取出。这是我到目前为止所做的。

#!/usr/bin/perl
use strict;

 open (MYFILE, 'inputfile.txt');
 my @records;
 while (<MYFILE>) {
        chomp;
        my %values = split(/[:\n]/,$_);
        push @records,%values;
 }
 close (MYFILE);

由此，我猜@records={[name=George],[age=5],[nature=curious],[likes=banana]} 会发生。

现在，如何从数组@records 中取出每个散列？当我尝试类似：

 foreach my $record(@records){
     my %record = $record;
     for my $key(keys %record){
        print "key : $key\n";
     }
 }

它一个接一个地输出所有令牌，这与预期的不同（只是键）。

【问题讨论】：

标签： perl format associative-array

【解决方案1】：

我会以稍微不同的方式来做......

my (@values, @properties);
while (<DATA>) {
  if (/(\S*)\s*:\s*(\S*)/) {
    push @values, $1;
    push @properties, $2;
  }
}
print join ',', @values;
print "\n";
print join ',', @properties;
print "\n";
__DATA__
        name: George
         age: 5
      nature: curious
       likes: banana

... 有两个原因。

首先，Perl 中的哈希是无序的，并且没有简单的方法可以将这些属性排序回其原始状态。在这些情况下，最好使用数组。

其次，使用正则表达式匹配而不是split 可以更轻松地处理不良数据（在此代码中，模式非常简单，但很容易获得验证逻辑）。此外，所有数据块都被立即捕获；您不需要chomp 或额外转换它们。

说到你的原始代码：这一行......

push @records, %values;

...必须改写成...

push @records, \%values;

... 表示任何可用的东西。请记住，数组在 Perl 中是扁平的，当您尝试将散列推入数组时，它只会被转换为一个列表（然后这个列表将被附加到该数组中）。

不过，当您必须输出这样一个哈希数组时，您必须遍历其元素的键，然后遍历其元素的值：如果您像我的代码那样单独存储它们，则没有必要。

【讨论】：