作业帮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))
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 18:03:06
![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))](/uploads/image/z/11405445-69-5.jpg?t=Perl+modification+of+a+read-only+value+attempted+at.%E8%BF%99%E6%98%AF%E5%87%BA%E9%94%99%E8%AF%AF%E7%9A%84%E5%AD%90%E5%87%BD%E6%95%B0.sub+GetMatchPoint%7Bmy%28%24r%2C%24u%2C%24p1_x%2C%24p1_y%2C%24p2_x%2C%24p2_y%2C%24p3_x%2C%24p3_y%2C%24m_x%2C%24m_y%29%3D%40_%3B%24e1%3D1%3B%24e2%3D1%3B%24e3%3D1%3Bmy+%24a%3D%28%28%40%24u%5B3%5D-%24r%29%2A%28%40%24u%5B3%5D-%24r%29%29%2F%28%24e1%2A%24e2%29%3Bmy+%24b1%3D%28%28%24r-%40%24u%5B1%5D%29%2A%28%40%24u%5B3%5D-%24r%29%29)
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))
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";
}
之前几次的调用都没有问题.
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))
可能有个原因就是你传入的参数有问题,比如最后两个参数传入的是scalar常量,传入引用才没问题
像这种参数很多的可以用hash然后一个引用就可以传进来