Question

我有一个目录，我可以编辑XML文件并将其转换为常规文本文件，其中 - 如果有多行数字，则必须将它们保存在新文件的不同新行中。< / p>

例如，如果XML文件如下所示：

<![CDATA[335 248 450 305
32 251 188 319
472 245 574 290
]]>

然后我希望转换后的文件看起来像这样：

Bounding box for object 1 "PAScar" (Xmin, Ymin) - (Xmax, Ymax) : (335, 248) - (450, 305)
Bounding box for object 2 "PAScar" (Xmin, Ymin) - (Xmax, Ymax) : (32, 251) - (188, 319)
Bounding box for object 3 "PAScar" (Xmin, Ymin) - (Xmax, Ymax) : (472, 245) - (574, 290)

这是我的代码的相关部分：

if($file =~ /\.xml$/i)
    {   $i += 1;
        open (MYFILE, $file); 
        $newlines = "";
        my $objnum;
        $objnum = 0;
        while (my $row = <MYFILE>) 
        {
            my $line;
            $line = "";
            if($row =~ m/\d+(?:\s+\d+){3}$/)
            {
                $objnum=$objnum+1;
                if($row =~ /CDATA/)
                {
                    my($prefix, $suff, $nums) = split(/\[/, $row);
                    $line = $nums
                }
                else
                {
                    $line = $row;
                }
                my ($x1, $y1, $x2, $y2) = split(" ",$line);
                $newlines = $newlines.'\n'.'Bounding box for object '.$objnum.' "PAScar" (Xmin, Ymin) - (Xmax, Ymax) : ('.$x1.', '.$y1.') - ('.$x2.', '.$y2.')';
            }
        }
        close MYFILE;
        my $tempfile;
        my $newfile;
        $tempfile  = "D:/PATH/temp.txt";
        open (my $tmp, '>>:crlf', $tempfile) or die "** can't  open temp file:( **";
        print $tmp $newlines;
        close $tmp;
        copy $tempfile, $file;
        unlink  $tempfile;

问题是我转换后的文件如下所示：

\nBounding box for object 1 "PAScar" (Xmin, Ymin) - (Xmax, Ymax) : (335, 248) - (450, 305)\nBounding box for object 2 "PAScar" (Xmin, Ymin) - (Xmax, Ymax) : (32, 251) - (188, 319)\nBounding box for object 3 "PAScar" (Xmin, Ymin) - (Xmax, Ymax) : (472, 245) - (574, 290)

为什么没有新行？我在Windows上运行。我知道这不是Notepad ++的问题。它在记事本和写字板上也显示如下。我尝试使用\r\n，但也没有创建新行。

然后，我不是简单地将$newlines打印到新文件中，而是尝试执行此操作：@lines = split("\n", $newlines);然后运行foreach $line (@lines)循环，我在每次迭代中重新打开文件：< / p>

foreach $line (@lines)
        {   open ($tmp, '>>', $tempfile) or die "** can't  open temp file:( **";
            print $tmp $line;
        }

但是我得到了相同的结果，除了这次没有\n，但是同一行上的所有内容。

怎么办？

Answer 1

更改行：

$newlines = $newlines.'\n'.'Bounding box for object '.$objnum.' "PAScar" (Xmin, Ymin) - (Xmax, Ymax) : ('.$x1.', '.$y1.') - ('.$x2.', '.$y2.')';

为：

$newlines = $newlines."\n".'Bounding box for object '.$objnum.' "PAScar" (Xmin, Ymin) - (Xmax, Ymax) : ('.$x1.', '.$y1.') - ('.$x2.', '.$y2.')';

即。你需要但是\ n用双引号，“\ n”，而不是单引号，'\ n'，使它成为换行符。

在perl中的文件中写入新行

1 个答案: