Perl为什么这个while循环不起作用？

Question

my $cmte_money_total = 0;
while ($cmte_money_total == 0){
  # body of function
}

这种语法有什么问题吗？它一直给我一个错误。

Answer 1

没有

$ perl -c -e'
  my $cmte_money_total = 0;
  while ($cmte_money_total == 0){
    # body of function
  }
'
-e syntax OK

Answer 2

它没有任何问题。

问题出在其他地方。发布产生问题的完整最小代码。