Perl-Konstrukt verstehen (Allgemeines zu Perl)

[thread]17398[/thread]

Perl-Konstrukt verstehen

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+2 replies
Gast Eric

2012-05-07 20:03
Guten Abend zusammen!

Ich soll auf eine SOAP-Schnittstelle per PHP zugreifen und habe hier ein Verständnisproblem. Mir wurde ein Beispiel zum ansprechen der Methode in Perl geliefert, jedoch verstehe ich jenes Konstrukt beim Methodenaufruf nicht wirklich:
Code: (dl )

my $TicketID = $RPC->DispatchMultipleTicketMethods( $SOAP_User, $SOAP_Pass, 'TicketObject', [ { Method => 'TicketCreate', Parameter => \%TicketData }, { Method => 'ArticleCreate', Parameter => \%ArticleData } ] );
Unverständlich für mich als absoluter perl-Noob ist dabei jenes Konstrukt:
Code: (dl )

[ { Method => 'TicketCreate', Parameter => \%TicketData }, { Method => 'ArticleCreate', Parameter => \%ArticleData } ]
Die Methode auf Soap-Seite schaut so aus:
Code: (dl )

1 2 3 4

sub DispatchMultipleTicketMethods { my ( $Self, $User, $Pw, $Object, $MethodParamArrayRef ) = @_; [...] }
Um die Methode über PHP entsprechend ansprechen zu können, muss natürlich ein passendes Konstrukt her...

Jemand eine Erklärung für mich?

Viele Grüße

Eric
Last edited: 2012-05-07 20:16:59 +0200 (CEST)
- rosti
  
  2012-05-07 21:22
  User since
  2011-03-19
  3502 Artikel
  BenutzerIn
  Der Hash (Code 2) mit den Methoden: Die sind hier namentlich genannt:
  
  TicketCreate
  ArticleCreate
  
  Parameter: jeweils eine Referenz auf einen weiteren Hash. Diese Methoden sind irgendwo in der Klasse definiert als sub TicketCreate{} und sub ArticleCreate{}.
  
  In Code (1) ruft die Instanz der Klasse ($RPC) die in Code (3) beschriebene Methode auf.
  
  Ausführung in DispatchMultipleTicketMethods kriegt als letzten Parameter die Arrayreferenz. Wenn dort nun die Methoden TicketCreate{} und sub ArticleCreate{} aufgerufen werden sollen, wird wahrscheinlich das hier gemacht:
  
  Code (perl): (dl )
  
  1 2
  
  $code = $self->can('TicketCreate'); $code = $self->can('ArticleCreate');
  
  Und dann der Code $code aufgerufen mit der vorgeschriebenen Hashreferenz als Parameter.
  
  Soweit sogut, noch Fragen ;)
  
  PD/Edit: ALso mit UNIVERSAL::can arbeite ich auch, Bsp.:
  http://rolfrost.de/map/perlbase/universal.html
  
  Aber was Da oben steht, ist mir auch ein bischen zu sehr verschachtelt. Da gibts bestimmt schönere Lösungen, die wartungsfreundlicher sind.
  Last edited: 2012-05-07 21:37:43 +0200 (CEST)

View all threads created 2012-05-07 20:03.