在Perl循环的最后一行打印新行的问题可以通过以下代码示例解决:
use strict;
use warnings;
my @array = (1, 2, 3, 4, 5);
for my $element (@array) {
print $element;
if ($element != $array[-1]) {
print " ";
}
}
在上述代码中,我们使用了一个数组 @array
,然后使用 for
循环遍历数组中的每个元素。在循环体中,我们先打印当前元素 $element
,然后使用一个条件语句检查当前元素是否为数组的最后一个元素。如果当前元素不是最后一个元素,我们打印一个空格,否则不打印任何东西。
这样,我们就可以避免在循环的最后一行打印新行。如果你运行上述代码,将会输出 1 2 3 4 5
,而不是 1 2 3 4 5\n
。