变量赋值问题，请指教。

eaglegirl

第一种方法：
[root@test perl]# vi ex2_1.pl

#!/usr/bin/perl -w
use warnings;
use strict;
$r=12.5;
$pi=3.141592654;
print 2*$r*$pi;
print "\n";
~
~
"ex2_1.pl" 8L, 100C written
[root@test perl]# perl ex2_1.pl
Global symbol "$r" requires explicit package name at ex2_1.pl line 4.
Global symbol "$pi" requires explicit package name at ex2_1.pl line 5.
Global symbol "$r" requires explicit package name at ex2_1.pl line 6.
Global symbol "$pi" requires explicit package name at ex2_1.pl line 6.
Execution of ex2_1.pl aborted due to compilation errors.
第二种方法：
[root@test perl]# vi ex2_1.pl

#!/usr/bin/perl -w
use warnings;
use strict;
$a=12.5;
$b=3.141592654;
print 2*$a*$b;
print "\n";

"ex2_1.pl" 8L, 98C written                                    
[root@test perl]# perl ex2_1.pl
78.53981635
初学perl，请哪位高手告诉我为什么第一种方式就报错呢？

flw

看小骆驼。

$a $b 是特殊变量。

eaglegirl

谢谢，
正在看perl入门（第四版），不知道是不是那本传说中的小骆驼！

HongLian3

这是因为程序开始use strict的影响：
use strict告诉Perl用比较严谨的方式来对程序编译，使用use strict后就需要用关键字my来定义需要的区域变量。
修改后的程序如下：
=============================================
#!/usr/bin/perl -w
use warnings;
use strict;
my $r=12.5;
my $pi=3.141592654;
print 2*$r*$pi;
print "\n";
=============================================
这样就可以了。

eaglegirl

谢谢