为什么我的 Perl 循环最后关闭了 1？

Question

我有这个程序，但它没有按预期工作。帮我。

我想打印行标题。

如果输入是 4，我希望输出 1|2|3|4。

它不能正常工作，如果我硬编码 $count 值，它可以部分工作，但最后一个数字丢失。

sub printC {
        my $count = @_;
        # count = 4  # works partially only prints 1|2|3
        for(my $i=1;$i<$count;$i++) {
                print "$i|";
        }
        print $i;
}
$count  = 2;
&printC($count);
print "\n";

Answer 1

问题就在这里：

my $count = @_;

分配发生在标量上下文中，它将数组@_中的元素数量分配给$count，您的case 是 1，因为您将 1 参数传递给函数。

要解决此问题，您可以这样做：

my ($count) = @_; 

或者

my $count = $_[0];

这是另一个问题：

for(my $i=1.....
    ^^

通过使用 my 您已将 $i local 设为 for 并且它在外部不可用。因此，您在 for 之外的最终 print 不会打印任何内容。要修复此问题，请将 $i 声明移到循环之外：

sub printC {
        my ($count) = @_;
        my $i;
        ....

始终将其写入

use strict;

程序的顶部，这样您就可以捕获此类错误。

执行函数操作的 perl 方式是：

print join('|',1..$count);

Answer 2

一个真正的 Perl 黑客可能会写这样的东西：

sub printC {
  my $count = shift;
  print join "|", (1 .. $count);
}

一旦你理解了它是如何工作的，你会发现你已经了解了更多关于 Perl 的知识。 :-)

Answer 3

一旦您离开 for 循环，由于声明的位置，$i 就不存在。

你可以做得

sub printC {
    my ($count) = @_;
    my $i;
    for ($i = 1; $i < $count; $i++) {
        print "$i|";
    }
    print $i;
}

更简单：

sub printC {
    my ($count) = @_;
    print join("|", 1 .. $count) . "\n";
}

Answer 4

“变得更Perlish”的另一点是不使用C 风格的for 循环。在 Perl 中几乎从来不需要使用 C 风格的 for。

等价的

for(my $i=1;$i<$count;$i++) { ... }

它们几乎是

for my $i (1 .. $count) { ... }

，除了后者更容易阅读并且更能抵抗差一错误。 （您的代码仅打印 1|2|3 而不是 1|2|3|4 的原因是因为您的 C 风格 for< 中的测试/code> 正在检查 $i<$count，而它应该是 $i<=$count - 这是 C 风格 中一个非常常见的错误 循环，for (list) 完全避免了。）

此外，不要在子调用前加上 & 前缀。它是 Perl 4 的遗留物，在 Perl 5 中不再需要，并且具有您可能不知道也可能不想要的副作用。只需使用 printC($count) 而不是 &printC($count)。

但是，是的，在这种特殊情况下， join 可能是比 for 更好的方法。