#!/usr/bin/perl my $a = 4;my $b = sqrt($a); print "\$b is $b "; 转载于:https://www.cnblogs.com/mopmoq/archive/2009/04/06/1430195.html