Écrire dans un fichier en Perl
Considérer:
#!/usr/local/bin/perl
$files = "C:\\Users\\A\\workspace\\CCoverage\\backup.txt";
unlink ($files);
open (OUTFILE, '>>$files');
print OUTFILE "Something\n";
close (OUTFILE);
Ci-dessus est un simple sous-routine que j'ai écrit en Perl, mais il ne semble pas fonctionner. Comment puis-je le faire fonctionner?
source d'informationauteur Daanish
Vous devez vous connecter pour publier un commentaire.
Variables sont interpolées seulement dans les chaînes à l'aide des guillemets
"
. Si vous utilisez des guillemets simples'
la$
sera interprété comme un dollar.Essayer avec
">>$files"
au lieu de'>>$files'
Toujours utiliser
Il vous aidera à obtenir plus de mises en garde.
Dans tous les cas également déclarer des variables
Vous devriez également vérifier la valeur de retour de
open
:Modifier: Comme suggéré dans les commentaires, une version avec les trois arguments ouvert et un couple de d'autres améliorations possibles,