perl - 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には、うまくいかないことがよくあるようです...

print to file 行が機能するには、ファイルが既に存在している必要がありますか?

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;