perl - perl 中的 Hello world OOP 示例？

Question

我正在阅读一本 perl 书，但只看过 sub 的函数示例关键词。

是否有定义和使用我自己的类的示例？

如何将下面的PHP重写为perl？

class name {

   function meth() {
     echo 'Hello World';
   }
}

$inst = new name;
$inst->meth();

Answer 1

基本的perl方式是:

在文件“Foo.pm”中:

use strict;
use warnings;
package Foo;
sub new {
   my $class = shift;
   my $self = bless {}, $class;
   my %args = @_;
   $self->{_message} = $args{message};

   # do something with arguments to new()
   return $self;
}

sub message {
   my $self = shift;
   return $self->{_message};
}

sub hello {
   my $self = shift;
   print $self->message(), "\n";
}
1;

在你的脚本中:

use Foo;
my $foo = Foo->new(message => "Hello world");
$foo->hello();

不过，您可能更喜欢使用 Moose，在这种情况下，文件 'Foo.pm' 是:

package Foo;
use Moose;
has message => (is => 'rw', isa => 'Str');
sub hello {
    my $self = shift;
    print $self->message, "\n";
}
1;

因为 Moose 为您制造了所有配件。您的主文件完全相同...

或者你可以使用 Moose 扩展来让一切变得更漂亮，在这种情况下 Foo.pm 变成:

package Foo;
use Moose;
use MooseX::Method::Signatures;
has message => (is => 'rw', isa => 'Str');

method hello() {
    print $self->message, "\n";
}
1;