Comment imprimer une variable dans un fichier en Perl?

J'utilise le code suivant pour essayer d'imprimer une variable dans un fichier.

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

Donc print $xml imprime le bon de sortie à l'écran. Mais print FILE $xml ne pas faire n'importe quoi.

Pourquoi l'impression de ligne du fichier ne fonctionne pas? Perl semble souvent avoir ces choses qui ne fonctionnent pas...

Pour l'impression à la ligne du fichier de travail, est-il nécessaire que le fichier existe déjà?

OriginalL'auteur user788171 | 2013-01-14

  1. 22

    La < ouvre un fichier en lecture. Utilisation > pour ouvrir un fichier en écriture (ou >> à ajouter).

    Il est également intéressant en ajoutant une gestion d'erreur:

    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;
    +1 pour les trois-argument-version de open, à l'aide de descripteurs lexicaux et de contrôle d'erreur.
    -1 pour ne pas print {$fh} $xml

    OriginalL'auteur Quentin