如何在Perl中将变量打印到文件中

Question

我正在使用下面的代码来尝试打印一个变量到文件。

my $filename = "test/test.csv";
open FILE, "<$filename";
my $xml = get "http://someurl.com";
print $xml;
print FILE $xml;
close FILE;

所以print $xml将正确的输出输出到屏幕上。但是print FILE $xml没有做任何事情。

为什么打印到文件行不工作?Perl似乎经常有这些事情就是不工作…

要打印到文件行工作，文件必须已经存在吗?

Answer 1

<打开文件进行读取。使用>打开文件写入(或>>追加)

也值得添加一些错误处理:

use strict;
use warnings;
use LWP::Simple;
my $filename = "test/test.csv";
open my $fh, ">", $filename or die("Could not open file. $!");
my $xml = get "http://example.com";
print $xml;
print $fh $xml;
close $fh;