Packagename (Allgemeines zu Perl)

[thread]18083[/thread]

Packagename

Tags: perl5 package Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+4 replies
MarkusH

2013-01-26 13:36
User since
2012-04-08
161 Artikel
BenutzerIn
Hallo,

folgende Daten habe ich vorliegen.
Code: (dl )

1 2 3 4 5 6 7 8 9

$VAR1 = bless( { 'messageId' => '0E9DB868-4CAE-A469-8B26-0000283949DF', 'headers' => {}, 'clientId' => '3D5F4FB3-CB85-DA69-1AD7-00005D49B004', 'correlationId' => '7bEpTarpwz9untUD', 'destination' => undef, 'timeToLive' => 0, 'body' => {...} }, 'flex.messaging.messages.AcknowledgeMessage' );
Nun wollte ich mit
Code (perl): (dl )

1 2 3 4 5 6 7

package flex.messaging.messages.AcknowledgeMessage; sub getBody { my ($class) = @_; return $class->{'body'}; };
die in body enthaltenen Daten rausziehen.

Statt Daten bekomme ich aber nur die Fehlermeldung "Invalid version format (0 before decimal required)".

Darf beim Packagenamen kein Punkt enthalten sein?
Wie kann ich das Problem umgehen?
$q =~ /(bb|[^b]{2})/
- GwenDragon
  
  2013-01-26 13:40
  
  User since
  2005-01-17
  14538 Artikel
  Admin1
  
  ~ perl -w use strict; use warnings; package blah.blubb; syntax error at - line 3, near "package blah." Execution of - aborted due to compilation errors.
  
  Wie du siehst, sind Punkte nicht in Paketnamen erlaubt.
  
  Und wie kommst du an solche Daten?
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +2 replies
- pq
  
  2013-01-26 13:55
  User since
  2003-08-04
  12208 Artikel
  Admin1
  solche objekte kann man eigentlich nur mit "künstlich" erstellten methoden erzeugen.
  in einem normalen package-statement ist das nicht erlaubt.
  
  das hier funktioniert:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  { no strict; *{"foo.bar::new"} = sub { bless {}, "foo.bar" }; } my $o = "foo.bar"->new;
  
  kriegst du die daten von einem CPAN-modul? von welchem?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - MarkusH
    
    2013-01-26 14:15
    
    User since
    2012-04-08
    161 Artikel
    BenutzerIn
    
    Es geht immer noch um das FlashRemoting Vorhaben aus
    Data::AMF - Aufbau der Anfrage
    
    Mit dem Modul Data::AMF habe ich jedoch keine Verbindung zustande gebracht.
    
    Ich verwende dafür nun das Modul AMF::Connection.
    Es scheint aber keine Methode zum extrahieren der Daten unterhalb von "Content" zu geben - jedenfalls finde ich in der Doku nichts dazu.
    
    Ich behelfe mich jetzt damit, dass ich einfach das Objekt umtaufe.
    
    Anbei noch ein Screenshot von Charles
    
    modedit Editiert von pq: internen link portabel gemacht
    Anhänge
    
    image/jpeg
    560 x 411
    CharlesResponseAMF.jpg
    
    Last edited: 2013-01-26 14:51:10 +0100 (CET)
    $q =~ /(bb|[^b]{2})/

View all threads created 2013-01-26 13:36.