Perl modification of a read-only value attempted at.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/15 02:34:27

Perl modification of a read-only value attempted at.
这是出错误的子函数.
sub GetMatchPoint{
my($r,$u,$p1_x,$p1_y,$p2_x,$p2_y,$p3_x,$p3_y,$m_x,$m_y)=@_;
$e1=1;
$e2=1;
$e3=1;
my $a=((@$u[3]-$r)*(@$u[3]-$r))/($e1*$e2);
my $b1=(($r-@$u[1])*(@$u[3]-$r)) / ($e1*$e2);
my $b2=(($r-@$u[2])*(@$u[4]-$r)) / ($e2*$e3);
my $b=$b1+$b2;
my $c=(($r-@$u[2])*($r-@$u[2]))/($e2*$e3);
$$m_x=int($a*$p1_x+$b*$p2_x+$c*$p3_x);#####这是出错的行数.
$$m_y=int($a*$p1_y+$b*$p2_y+$c*$p3_y);
print "p1:($p1_x,$p1_y)\n";
print "p2:($p2_x,$p2_y)\n";
print "p3:($p3_x,$p3_y)\n";
print "match:($$m_x,$$m_y)\n";
print "\n";
}
之前几次的调用都没有问题.

可能有个原因就是你传入的参数有问题,比如最后两个参数传入的是scalar常量,传入引用才没问题
像这种参数很多的可以用hash然后一个引用就可以传进来

perl提问关于 Use of uninitialized value in string eq at line 48 Perl Use of uninitialized value in concatenation (.) or stri Value has a value only if its value is 英语翻译Knowing the value of a giftIt was at least two months be The present value of $100 due in 5 years at a 3% discount ra what is the value today of a company that earns 5,000 at the 英语翻译The value shown at +dV/dt indicates as a percentage of 5 Only the value of the investment in yourself 求翻译 only when he got ill ( )the value of health Only at work ________ the importance of mastering a foreign 求解释一段英语We think of a core value as lying at the mean of norm perl $@