Question

perl程序问题，请高手帮忙看一下问题所在？

最近在学perl语言，按照骆驼书后面的习题答案，运行一下程序，发现结果并不是书上说的结果，大家帮我看下是怎么回事，难道是版本有问题，我的perl版本是v5.8.3，linux系统；
#！ sur/bin/prel -w
$pi=3.1415926;
chomp($radius = <STDIN>);
$circ = 2 * $pi * $radius;
print "the circumference of a circle of radius $radius is $circ.\n"；

上面的程序是想从键盘输入一个半径的数值，然后回车键得到一个周长值，但是却会弹出如下错误信息：
use of uninitialized value in multiplication（*） at line 3，<STDIN> line1.
并且print的周长数值为0，好像是把$radius当做undef类型，认为是0.

为什么与骆驼书习题上面的不一样呢？求高手解答一下，多谢！

Answer 1

程序没有问题，是最后一句话的冒号有问题。

应该是直接复制电子书上的代码的结果，它不是纯文本格式。

print "the circumference of a circle of radius $radius is $circ\n";

追问

谢谢你的回复，程序本身的确没有问题！

Answer 2

後面的没事, 但 #！ sur/bin/prel -w

我就觉得应该是 #!/usr/bin/perl -w

追问

谢谢你的回复，#!/usr/bin/perl -w 和#！ sur/bin/prel -w
效果是一样的。如您所说，后面的程序确实没问题。