Perl - Enregistrer chaque entrée dans le fichier à la nouvelle ligne

Question

Je travaille sur un script Perl qui vérifie le contenu d'un répertoire en utilisant glob, puis écrit la sortie dans un nouveau fichier. Mais chaque entrée du fichier est séparée en utilisant des espaces et j'en ai besoin pour imprimer chaque entrée dans une nouvelle ligne. Mon code est comme ça

open(New, ">/u/smanik/xyz.txt"); 

@files = glob('/user/manik/*.csv'); 
$size = @files; 

print "Total no of files: $size \n"; 

print New @files; 

open(New, "/user/manik/xyz.txt"); 
while (<New>) { 
    print "$_"; 
} 

close(New); 

Cela donne la sortie en imprimant dans le fichier comme

/user/manik/A.csv /user/manik/B.csv 

Mais je besoin à imprimer dans le fichier comme celui-ci

A.csv 
B.csv 
C.csv 

J'ai essayé en ajoutant \n dans la cinquième ligne, mais cela n'a pas fonctionné.

Answer 1

Si vous voulez imprimer des retours à la ligne, vous devez le dire.

my @foo = (1, 2, 3); 
print @foo; 

Ce imprimera

C'est parce que le tableau @foo est considéré comme la liste des arguments à print, qui se contentera de sortie tous les arguments les uns après les autres.

my @foo = (1, 2, 3); 
print "@foo"; 

Maintenant, ce imprimera

1 2 3 

car un tableau à l'intérieur d'une double chaîne cité "" est interpolée en utilisant la $,output field separator, qui est un espace vide par défaut. Si vous souhaitez utiliser des retours à la ligne, le plus simple est join votre tableau avec \n, qui produit une seule chaîne comme argument pour print.

my @foo = (1, 2, 3); 
print join "\n", @foo; 

Cela vous donnera

1 
2 
3