0

在 Perl 中,我试图解析 XML 并将内容写入 CSV 文件。我从 XML 中提取的一些文本很大——实际上是段落。当我写入 CSV 文件时,这是很容易理解的,它把单元格弄乱了。内容溢出到其他单元格并将数据推出。

在编写它之前,我试图寻找一个“列换行”选项,但没有一个显然不是 CSV 函数。

下面是我正在使用的代码。我将数组的元素连接成一个字符串,并将这个巨大的字符串写入 CSV 文件。#--------输出文件处理----------# open (OutFile,">>$design_extract") or die "$!";
print OutFile "设计、控制类型、Study_Purpose、主要目标\n";

$study_content = join(" ", @study_arr), "\n";
print OutFile "$design_id,$control_type,$study_content,$prime_obj_content\n";

学习内容和主要目标都是很长的字符串。@study_arr 是从 XML 文件中提取的字符串(文本行)数组。

任何人都对我如何将这些庞大的数据写入 CSV 并使其看起来既可读又漂亮有更好的想法?非常感谢任何输入。

TIA,西马克

4

1 回答 1

3
于 2013-07-02T00:16:15.603 回答