问一个包获取值的问题

komakoh

想要做一个复数的加减乘除求模等等等等运算的包，写完后，发现包获取的值不对

1. package My_complex;
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. use overload
   
5. '+'  => \&plus,
   
6. '-'  => \&subtraction,
   
7. '*'  => \&multi,
   
8. '/'  => \&div,
   
9. abs  => \&abs,
   
10. '""' => \&print,
    
11. '='  => \&set,
    
12. '==' => \&equal;
    
13. 
    
14. sub get
    
15. {
    
16.         $_=shift;
    
17.         print "$_\n";
    
18.         my @num=/[0-9]+/g;
    
19.         my ($i,$r);
    
20.         if(/^i$/)
    
21.         {$r=0;$i=1;print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
22.         if(/^\-i$/)
    
23.         {$r=0;$i=-1;print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
24.         if(/^[0-9]+$/)
    
25.         {$r=$num[0] ;$i=0;print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
26.         if(/^\-[0-9]+$/)
    
27.         {$r= -$num[0] ;$i=0;print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
28.         if(/^[0-9]+i$/)
    
29.         {$r=0 ;$i=$num[0];print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
30.         if(/^\-[0-9]+i$/)
    
31.         {$r=0 ;$i= -$num[0];print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
32.         if(/^[0-9]+\+[0-9]+i$/)
    
33.         {$r=$num[0] ;$i=$num[1];print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
34.         if(/^\-[0-9]+\+[0-9]+i$/)
    
35.         {$r= -$num[0] ;$i=$num[1];print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
36.         if(/^[0-9]+\+i$/)
    
37.         {$r=$num[0] ;$i=1;print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
38.         if(/^\-[0-9]+\+i$/)
    
39.         {$r= -$num[0];$i=1;print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
40.         if(/^[0-9]+\-[0-9]+i$/)
    
41.         {$r= $num[0];$i= -$num[1];print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
42.         if(/^[0-9]+\-i$/)
    
43.         {$r= $num[0];$i= -1;print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
44.         if(/^\-[0-9]+\-[0-9]+i$/)
    
45.         {$r= -$num[0] ;$i= -$num[1];print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
46.         if(/^\-[0-9]+\-i$/)
    
47.         {$r= -$num[0] ;$i=-1;print "\$r is  ",$r,"  \$i is ",$i,"\n"}
    
48.         my %self=("real"=>$r,"image"=>$i);
    
49.         print "$r\n$i";
    
50.         return bless \%self;
    
51. }
    
52. 
    
53. sub plus
    
54. {
    
55.         my($x,$y)=@_;
    
56.         my $xr=$x{"real"};
    
57.         my $xi=$x{"image"};
    
58.         my $yr=$y{"real"};
    
59.         my $yi=$y{"image"};
    
60.         my $realvalue=$xr+$yr;
    
61.         my $imagevalue=$xi+$yi;
    
62.         my %self=("real"=>$realvalue,"image"=>$imagevalue);
    
63.         return bless \%self;
    
64. }
    
65. 
    
66. sub subtraction
    
67. {
    
68.         my($x,$y)=@_;
    
69.         my $xr=$x{"real"};
    
70.         my $xi=$x{"image"};
    
71.         my $yr=$y{"real"};
    
72.         my $yi=$y{"image"};
    
73.         my $realvalue=$xr-$yr;
    
74.         my $imagevalue=$xi-$yi;
    
75.         my %self=("real"=>$realvalue,"image"=>$imagevalue);
    
76.         return bless \%self;
    
77. }
    
78. 
    
79. sub multi
    
80. {
    
81.         my($x,$y)=@_;
    
82.         my $xr=$x{"real"};
    
83.         my $xi=$x{"image"};
    
84.         my $yr=$y{"real"};
    
85.         my $yi=$y{"image"};
    
86.         my $realvalue=$xr*$yr-$xi*$yi;
    
87.         my $imagevalue=$xi*$yr+$yi*$xr;
    
88.         my %self=("real"=>$realvalue,"image"=>$imagevalue);
    
89.         return bless \%self;
    
90. }
    
91. 
    
92. sub div
    
93. {
    
94.         my($x,$y)=@_;
    
95.         my $xr=$x{"real"};
    
96.         my $xi=$x{"image"};
    
97.         my $yr=$y{"real"};
    
98.         my $yi=$y{"image"};
    
99.         my $abs=$y->abs;
    
100.         my $realvalue=($xr*$yr+$xi*$yi)/$abs;
     
101.         my $imagevalue=($xi*$yr-$yi*$xr)/$abs;
     
102.         my %self=("real"=>$realvalue,"image"=>$imagevalue);
     
103.         return bless \%self;
     
104. }
     
105.        
     
106. sub abs
     
107. {
     
108.         my $this=shift;
     
109.         my $r=$this{"real"};
     
110.         my $i=$this{"image"};
     
111.         return $r*$r+$i*$i;
     
112. }
     
113. 
     
114. sub print
     
115. {
     
116.         my $this=@_;
     
117.         my ($key,$value,$result);
     
118.         while(($key,$value)=each %$this)
     
119.         {
     
120.                 $result .="$key=>$value\n";
     
121.         }
     
122.         return $result;
     
123. }
     
124. 
     
125. sub set
     
126. {
     
127.         my($x,$y)=@_;
     
128.         my %self;
     
129.         my $yr=$y{"real"};
     
130.         my $yi=$y{"image"};
     
131.         $self{"real"}=$yr;
     
132.         $self{"image"}=$yi;
     
133.         return bless \%self;
     
134. }
     
135. 
     
136. sub equal
     
137. {
     
138.         my($x,$y)=@_;
     
139.         my $xr=$x{"real"};
     
140.         my $xi=$x{"image"};
     
141.         my $yr=$y{"real"};
     
142.         my $yi=$y{"image"};
     
143.         return (($xr==$yr)and($xi==$yi));
     
144. }
     
145. 
     
146. 1;

复制代码

主程序代码如下

1. #!/usr/local/bin/perl -w
   
2. use strict;
   
3. use My_complex;
   
4. 
   
5. my $a="i";
   
6. my $b="-i";
   
7. my $byte1=My_complex->get($a);
   
8. my $byte2=My_complex->get($b);
   
9.        
   
10. my $byte3=$byte1 + $byte2;
    
11. print $byte3{"real"},"\n";
    
12. print $byte3{"image"},"\n";

复制代码

输出完后发现get方法获得的是My_complex。。。。

komakoh

再次获取值，才是应该赋予的值。这个问题怎么解决。。。

zhlong8

先把引用和Perl 的OO巩固下，比如先写一个不用重载操作符的版本

比如参数 $x 是个引用 $x->{'image'} 没有中间的箭头用的就是变量 %x 和 $x 一点关系都没有

gaoyang636

看主程序是想用OO，但是package里面却不是了。推荐一本书: Object-Oriented Perl