Perl - 将每个条目保存在文件中的新行

Question

我正在编写一个 Perl 脚本，该脚本使用 glob 检查目录的内容，然后将输出写入新文件。但是文件中的每个条目都使用空格分隔，我需要它在新行中打印每个条目。我的代码是这样的

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);

这是通过在文件中打印来给出输出

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

但我需要像这样将它打印在文件中

A.csv
B.csv
C.csv

我尝试在第五行添加\n，但没有奏效。

Answer 1

如果你想让它打印换行符，你需要告诉它。

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

这将打印出来

123

这是因为数组@foo被当作print的参数列表，它只会一个接一个地输出所有参数。

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

现在这将打印出来

1 2 3

因为双引号 "" 字符串内的数组是使用 $, output field separator 插入的，默认情况下是空格 。

如果您希望它使用换行符，最简单的方法是使用\n 将join 您的数组作为print 的参数生成一个字符串。

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

这会给你

1
2
3