如何創建一個類並將對象作爲參數傳遞給perl中的方法？

Question

這是我的代碼

 public class TKomplex 
    { 
     public double real; 
     public double imag; 
    } 

      public TKomplex ksum(TKomplex a, TKomplex b) 
      { 
       TKomplex res; 
       res.real = a.real + b.real; 
       res.imag = a.imag + b.imag; 
       return (res); 
      } 


      public TKomplex kprod(TKomplex a, TKomplex b) 
      { 
       TKomplex res; 
       res.real = a.real * b.real - a.imag * b.imag; 
       res.imag = a.real * b.imag + a.imag * b.real; 
       return (res); 
      } 

如何在Perl代碼呢？如何創建一個類並將對象作爲參數傳遞給perl中的方法？

Answer 1

這裏有一種方法，使用武對象：

文件TKomplex.pm：

package TKomplex; 
use Moo; 

has real => (
    is => 'rw', 
); 
has imag => (
    is => 'rw', 
); 

sub ksum { 
    my ($a, $b) = @_; 
    my $res = TKomplex->new; 
    $res->real($a->real + $b->real); 
    $res->imag($a->imag + $b->imag); 
    return $res; 
} 

sub kprod { 
    my ($a, $b) = @_; 
    my $res = TKomplex->new; 
    $res->real($a->real * $b->real - $a->imag * $b->imag); 
    $res->imag($a->real * $b->imag + $a->imag * $b->real); 
    return $res; 
} 

1; 

使用例：

use TKomplex; 
my $val = TKomplex->new(real => 3, imag => -2); 
my $ksum = TKomplex::ksum($val, $val); 
print "real: ", $ksum->real, " imag: ", $ksum->imag, "\n"; 

注意ksum和kprod不是方法，它們是子程序。如果您想將它們稱爲班級方法，請說TKomplex->ksum(...)，並將其更改爲在$a和$b之前採用$class參數。

不武，取出使用武，有條款和補充：

use strict; 
use warnings FATAL => 'all'; 
sub new { 
    my ($class, %object) = @_; 
    return bless \%object, $class; 
} 
sub real { 
    my $self = shift; 
    if (@_) { 
     $self->{real} = shift; 
    } 
    else { 
     $self->{real} 
    } 
} 
sub imag { 
    my $self = shift; 
    if (@_) { 
     $self->{imag} = shift; 
    } 
    else { 
     $self->{imag} 
    } 
}