呵呵 我也是初学PERL 以下是我敲的代码 希望对你有帮助#!/usr/bin/perl -w$pi=3.1415926;$r=12.5;$girth=$r*2*$pi;print"Girth is $girth \n";
