arrays - Perl 中数组的问题

Question

我是 Perl 的新手，在 Perl 中使用数组有些困难。有人可以向我解释为什么我无法在下面的脚本中打印数组的值。

$sum=();
$min = 999;
$LogEntry = '';
foreach $item (1, 2, 3, 4, 5)
{
  $min = $item if $min > $item;
  if ($LogEntry eq '') {
    push(@sum,"1"); }
    print "debugging the IF condition\n";
}
print "Array is: $sum\n";
print "Min = $min\n";

我得到的输出是:

debugging the IF condition
debugging the IF condition
debugging the IF condition
debugging the IF condition
debugging the IF condition
Array is:
Min = 1

我不应该得到 Array is: 1 1 1 1 1(5 次)。有人可以帮忙吗？谢谢。

Answer 1

你需要两件事:

use strict;
use warnings;

此时您的代码中的错误($sum 而不是 @sum)应该变得明显......