[英]How to print a variable to a file in Perl?
我使用以下代碼嘗試將變量打印到文件。
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似乎經常有這些東西不起作用......
要使打印到文件行工作,文件是否已經存在?
<
打開文件進行閱讀。 使用>
打開要寫入的文件(或>>
以追加)。
添加一些錯誤處理也是值得的:
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;
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.