为什么当我使用嵌套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";