这个Perl程序哪里错了?

题目

这个Perl程序哪里错了?
1 /usr/bin/perl -w
2 use strict;
4 if ( $priceInDollars >=100 ) {
6 print "This item is too expensive! ";
7 }
8 else {
9 print "I can afford this. "；
10 ｝
11 my $priceInDollars = 100;
行数别理它,有点乱

答案

如果说错的话,就是第4行的if语句,在对$priceInDollars赋值以前（第11行）就使用了.因此,在if语句中,$priceInDollars的值是undef,实际取值是0,所以4~10行的语句永远输出：I can afford this.