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

Question

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

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

Answer 1

它没什么问题。

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

Answer 2

号

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