CODEWITHSUNDEEP
perlfilevariablesprinting
user788171
user788171

Reputation: 17553

How to print a variable to a file in Perl?

I am using the following code to try to print a variable to file.

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

So print $xml prints the correct output to the screen. But print FILE $xml doesn't do anything.

Why does the printing to file line not work? Perl seems to often have these things that just don't work...

For the print to file line to work, is it necessary that the file already exists?

Upvotes: 6

Views: 25550

Answers (1)

Quentin
Quentin

Reputation: 944443

The < opens a file for reading. Use > to open a file for writing (or >> to append).

It is also worthwhile adding some error handling:

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;

Upvotes: 26

Related Questions