为什么当我使用嵌套的for循环运行代码时什么都不会发生呢？

Question

我试图使用for循环进行计算，然后将结果推到数组上。这是脚本中我试图使用的部分：

my @deltaX;

for my $one (@protx) {
    for my $two (@lipidx) {
        my $deltadX = $one - $two;
        push @deltaX, $deltadX;
    }
}
print "@deltaX \n";

当我这样做时，似乎什么都没有发生，我的计算机说perl正在运行，但是没有输出或警告。

另一方面，当我在for循环中打印数组内容时，它似乎是有效的：

my @deltaX;

for my $one (@protx) {
    for my $two (@lipidx) {
        my $deltadX = $one - $two;
        push @deltaX, $deltadX;
        print "@deltaX \n"; 
    }
}

当print在外部循环之外时，我如何使它工作？

Answer 1

为了让您放心，您的代码正在运行，实际上正在做一些事情，您可以打印一些进度点。此示例在每次将10,000项推送到数组中时打印一个点，并每100点启动一条换行符。

my @deltaX;

for my $one (@protx) {
    for my $two (@lipidx) {
        my $deltadX = $one - $two;
        push @deltaX, $deltadX;

        print '.' unless @deltaX % 10_000;
        print "\n" unless @deltaX % 1_000_000;
    }
}
print "@deltaX \n";