Question

问题描述：我有一个xml文件，其内容我复制到一个变量，以通过HTTP消息传递它。一旦我收到HTTP消息，我试图将其复制回文件，但它似乎无法正常工作。

我做了以下

if(-f $xml_file) {
            open (FH, "< $xml_file") || die "error", "Can't open schema file $xml_file:$!";
            while(<FH>) { $xml_content .= $_ . "\\n"; }
            close(FH);
        }

我将$ xml_content分配给我定义的html_header-＆gt; {'xml_content'}。

我尝试使用

将内容复制回文件

  my $xml_data = html_header->{'xml_content'};  
  my $file_xml;
  write_file('$file_xml', $xml_data);

不起作用。
我想将$ file_xml复制到特定位置以供以后使用。

我在这做错了什么。或者我对File :: Slurp qw（write_file）中的write_file功能的理解是错误的。

有人可以指出错误吗......我也尝试过其他方式......但它不起作用。

Answer 1

write_file('$file_xml', $xml_data);

变量不会在单引号内扩展。这将创建一个名为$file_xml的文件。我想你可能意味着：

write_file($file_xml, $xml_data); # No quotes needed.

无法从字符串中检索/复制xml数据到文件

1 个答案: