小编Har*_*ear的帖子

我有一个简单的代码，可以读取 YAML 文件并将其转储回 CSV：

my @data = YAML::LoadFile(${$testplan_path});
    foreach (@{$data[0]}) {
      print "HERE\n";
      print Dumper $_;
      print "\n";
      # Print each yaml array into a csv
      $csv->print($CSVFILE, $_);
      # Add new line
      print $CSVFILE "\n";
    }

除了 YAML 文件在数组末尾有空条目的情况之外，这种方法工作得很好。

- [Title                             ,Description   ,Type       ,Data                     ,Owner    ,Milestone   ,Tags            ]
- [gfc200 Testplan                   ,              ,Header     ,1                        ,         ,            ,"ONE,TWO"       ]
- [Design Checks                     ,              ,testplan   ,design_checks.yaml       ,harwhi01 ,            ,                ]

上述 3 行 YAML 的 print/dump 输出如下：

HERE
$VAR1 = [
          'Title', …