perl 打印数字范围，末尾有换行符

Question

我尝试使用 perl 打印 1 到 10。

print 1..10 #This works perfectly fine.

我想知道是否有办法在打印最后一个元素后添加新行。

print "1..10" . "\n" ; # it just  prints 1..10 (as expected) instead of 12345678910

print "{1..10} . "\n" ; # This doesn't work either :(

我知道我可以将它存储在一个列表中，然后打印该列表：

my @test = 1..10 ;

print @test ;

我只是想知道打印是否有一个技巧可以在 1 行中完成。 提前致谢！

Answer 1

要将 10 个数字和一个换行符传递给 print（依次打印每个数字），您可以使用以下命令：

print 1..10, "\n";

---

如果您想构建一个由数字后跟换行符组成的字符串，您可以使用以下任一方法：

print join("", 1..10, "\n");

print join("", 1..10) . "\n";

---

测试：

$ perl -e'
   print 1..10, "\n";
   print join("", 1..10, "\n");
   print join("", 1..10) . "\n";
   print "done.\n";
'
12345678910
12345678910
12345678910
done.