Возврат объекта perl из другого класса perl в C # с использованием PerlNET - PullRequest
Новая
       57

Возврат объекта perl из другого класса perl в C # с использованием PerlNET

9 голосов
/ 21 апреля 2010

У меня есть два модуля Perl, которые я хочу представить как типы объектов для C #. Один из них создает объекты другого типа и возвращает его, используя метод, как показано ниже. Я включаю ссылку на Type2.dll в Type1.dll и ссылаюсь на них обоих в C #. Как показывает код, я могу создать объект Type2 непосредственно из C #, но я не могу вернуть объект Type2, который был создан методом в Type1. Есть идеи?

(Кросс-пост от http://community.activestate.com/forum/return-perl-object-different-perl-class-c)

C #: 

Type1 obj1 = new Type1(); // Works
Type2 test = new Type2(); // Works
Type2 obj2 = obj1.make2(); 
// Fails: System.InvalidCastException: Unable to cast object of type 
// 'PerlRunTime.SV' to type 'Type2' at Type1.make2()

Perl: Type1.pm 

package Type1;

use strict;
use Type2;

=for interface
    [interface: pure]
    static Type1();
    Type2 make2();
=cut

sub new {
    my $class = shift;
    return bless {}, $class;
}

sub make2 {
    my $this = shift;
    return Type2->new();
}

1;

Perl: Type2.pm 

package Type2;

use strict;

=for interface
    [interface: pure]
    static Type2();
=cut

sub new {
    my $class = shift;
    return bless {}, $class;
}

1;

Ответы [ 2 ]

2 голосов
/ 10 мая 2010

Поскольку это было перекрестно опубликовано на community.activestate.com и на него уже получен ответ, я скопирую ответ оттуда сюда, но я урежу его, потому что я думаю, что это слишкомlongy.

Основная проблема в том, что, как вы написали, Type2 не считается типом , а вызов Type2->new() не переводится в вызов конструктора (но статическийвызов метода).

Следующие изменения в вашем коде исправляют это:

  • В Type2.pm измените package Type2 на package Sample::Type2.Это делает Type2 типом, а Sample - пространством имен.
  • В Type1.pm аналогично измените package Type1 на package Sample::Type1.
  • В Type1.pm измените use Type2; на use namespace "Sample";,Это импортирует Type2 как type .

Размещенный код C # работает как требуется после этих изменений.

1 голос
/ 11 мая 2010

Я также обнаружил, что могу создать один файл, подобный этому: 

package Type2;

=for interface
    [interface: pure]
    static Type2();
=cut

require Type2;


package Type1;
use Type2;

=for interface
    [interface: pure]
    static Type1();
    Type2 make2();
=cut

Тогда мои файлы Type1.pm и Type2.pm такие же, как и раньше, но без интерфейса POD. При такой настройке plc создает одну dll, которая включает оба класса, а класс Type1 может создавать и возвращать экземпляры Type2.

На самом деле это оказалось более удобным для меня, потому что мои классы Type1 и Type2 являются частью устаревшей библиотеки, которую я хочу сделать доступной для кода C # без внесения в них обширных специфических изменений .NET. Я создал один файл pm для моей сборки C #, и в него я включил определения интерфейса для доступа к устаревшим методам библиотеки и несколько специфических методов .NET для свойств и преобразования сложных возвращаемых значений структуры данных хеш / массива Perl в Структуры данных Hashtable и Array / ArrayList.

...