Perl modification of a read-only value attempted at.
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/10/08 06:17:42
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";
}
之前几次的调用都没有问题.
这是出错误的子函数.
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然后一个引用就可以传进来
像这种参数很多的可以用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 $@