如何使用 Perl 将 XML 数据写入文件? [英] How can I write XML data to a file with Perl?

问题描述

你能不能更正我下面的代码.

Could you please correct my code below.

#!/usr/local/bin/perl

open (MYFILE, '>>data.xml');
print MYFILE "<?xml version="1.0" encoding="UTF-8"?>\n";
close (MYFILE); 

已更新.

#!/usr/local/bin/perl
open (MYFILE, '>>data.xml');
print MYFILE '<?xml version="1.0" encoding="UTF-8"?\>'."\n";
print MYFILE '<?xml version="1.0" encoding="UTF-16"?\>'."\n";
close (MYFILE);

输出:现在运行良好.

<?xml version="1.0" encoding="UTF-8"?\>
<?xml version="1.0" encoding="UTF-16"?\>

但是.

#!/usr/local/bin/perl
open (MYFILE, '>>data.xml');
print MYFILE '<?xml version="1.0" encoding="UTF-8"?\>'.'\n';
print MYFILE '<?xml version="1.0" encoding="UTF-16"?\>'.'\n';
close (MYFILE);

输出:#带有\n的错误格式

Output: # error format with \n

<?xml version="1.0" encoding="UTF-8"?\>\n<?xml version="1.0" encoding="UTF-16"?\>\n

推荐答案

print MYFILE qq{<?xml version="1.0" encoding="UTF-8"?>\n};

你的问题是你嵌套了双引号；使用 qq{} 分隔字符串将解决此问题.

Your problem is that you had nested double quotes; using qq{} to delimit the string will solve this issue.

这篇关于如何使用 Perl 将 XML 数据写入文件?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！