Perl: Как создавать объекты на лету?

Более подход Perlish состоит в том, чтобы создать отдельное пространство имен для желаемых методов вашего объекта и благословить объект, чтобы сделать эти методы доступными для вашего объекта. Код для этого все еще может быть довольно кратким.

my $obj = bless { foo => 1 }, "bar";
sub bar::hello { return 'world' };

Как предлагает gbacon, если вы хотите написать $ obj -> {hello} -> () вместо $ obj-> hello () , вы можете пропустить Благослови операцию.

my $obj = { foo => 1, hello => sub { return 'world' } };

Попробуйте Hash :: AsObject из CPAN.

$obj будет скаляром, поэтому все, что вы назначите ему, также должно быть скаляром. Вы можете сказать либо

my %obj = ( foo => 1, hello => sub { return 'world' });

либо

my $obj = { foo => 1, hello => sub { return 'world' }};

Последнее, с фигурными скобками, создает хэш-ссылку (которая является скаляром, поэтому может быть помещена в $obj). Чтобы перейти к содержимому внутри хэш-ссылки, необходимо использовать оператор стрелки. Что-то вроде $obj->{foo} или &{$obj->{hello}}.

Если только вам не нужно иметь списки хэшей или что-то в этом роде, обычно лучше использовать первый метод.

В любом случае, вы не сможете сказать $obj->hello(). Perl использует этот синтаксис для своей собственной разновидности ООП, в которой функция hello находится в отдельном пакете, в который была благословленаваша ссылка. Например:

package example;
sub new {} { my $result = {}; return bless $result, 'example' }
sub hello { return 'world' }

package main;
my $obj = example->new();

Как вы видите, методы, которые вы можете вызывать, уже определены, и добавить новые не так уж тривиально. Существуют магические методы, которые можно использовать для этого, но на самом деле оно того не стоит. &{$obj{hello}} (или &{$obj->{hello}} для справки) - это меньше усилий, чем пытаться заставить Perl работать как Javascript.

В какой бы функции вы ни создавали объект, вам необходимо вызвать bless для вашего объекта, чтобы разрешить вызов метода.

Например:

package MyClass;

sub new
{
  my $obj = {
    foo => 1
  };

  return bless($obj, "MyClass");
}

sub hello
{
  my $self = shift;
  # Do stuff, including shifting off other arguments if needed
}

package main;
my $obj = MyClass::new();

print "Foo: " . $obj->{foo} . "\n";
$obj->hello();

РЕДАКТИРОВАТЬ: Если вы хотите иметь возможность использовать ссылки на подпрограммы для обеспечения динамической функциональности для ваших объектов ...

Во-первых, вы можете создать ссылку на свой код следующим образом (в этом примере конструктора хэша ):

my $obj = {
  foo => 1,
  hello => sub { print "Hello\n"; },
}

Вы можете вызвать его так:

my $obj = MyClass::new(); # or whatever
$obj->{hello}->(@myArguments);

Немного громоздко, но работает. (Возможно, вам даже не понадобится вторая стрелка, но я не уверен.)

Методы в Perl - это не свойства объекта, как в Python. Методы - это простые обычные функции-функции в пакете , связанные с объектом. Обычные функции, принимающие дополнительный аргумент для ссылки на себя.

Вы не можете иметь динамически создаваемые функции как методы.

Вот цитата из perldoc perlobj:

   1.  An object is simply a reference that happens to know which class it
       belongs to.

   2.  A class is simply a package that happens to provide methods to deal
       with object references.

   3.  A method is simply a subroutine that expects an object reference
       (or a package name, for class methods) as the first argument.

О, и bless () - это то, как вы устанавливаете связь между ссылкой и пакетом.

В Perl это пишется немного по-другому:

my $obj = { foo => 1, hello => sub { return "world" } };
print $obj->{hello}() . $obj->{foo};

Но код неудобен. Предупреждение, которое вы видели о том, что ссылка не благословлена, говорит о том, что ваши объекты реализованы не так, как ожидает Perl. Оператор bless помечает объект пакетом, в котором следует начинать поиск его методов.

Расскажите нам, что вы хотите сделать с точки зрения вашей проблемной области, и мы сможем предложить предложения по более естественному подходу в Perl.