Wie baue ich das als Hash nach? (Allgemeines zu Perl)

[thread]20131[/thread]

Wie baue ich das als Hash nach?

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+9 replies

Gast Jan

2016-08-03 08:25

Hallo!

Ich bräuchte Hilfe, wie ich das untenstehende JSON-Objekt als Hash aufbauen muss, damit ein encode_json(\%content) den Hash dann korrekt umwandelt.

Code: (dl )

{
  "RequestHeader": {
    "SpecVersion": "1.3",
    "CustomerId": "[your customer id]",
    "RequestId": "[unique request identifier]",
    "RetryIndicator": 0
  },
  "TerminalId": "[your terminal id]",
  "Payment": {
    "Amount": {
      "Value": "100",
      "CurrencyCode": "CHF"
    },
    "OrderId": "Id of the order",
    "Description": "Description of payment"
  },
  "ReturnUrls": {
    "Success": "[your shop payment success url]",
    "Fail": "[your shop payment fail url]"
  }
}

Versucht habe ich folgendes, aber das bringt mir den Fehler "Reference found where even-sized list expected":

Code: (dl )

my %content = {
  "RequestHeader" => {
    "SpecVersion" => "1.3",
    "CustomerId"=> "[your customer id]",
    "RequestId"=> "[unique request identifier]",
    "RetryIndicator"=> 0
  },
  "TerminalId"=> "[your terminal id]",
  "Payment"=> {
    "Amount"=> {
      "Value"=> "100",
      "CurrencyCode"=> "CHF"
    },
    "OrderId"=> "Id of the order",
    "Description"=> "Description of payment"
  },
  "ReturnUrls"=> {
    "Success"=> "[your shop payment success url]",
    "Fail"=> "[your shop payment fail url]"
  }
}

Vielen Dank!
Last edited: 2016-08-03 09:01:44 +0200 (CEST)

+2 replies

GwenDragon

2016-08-03 09:10

User since
2005-01-17
14759 Artikel
Admin1

Code (perl): (dl )

my %content = %{

        {
                "RequestHeader" => {
                        "SpecVersion"    => "1.3",
                        "CustomerId"     => "[your customer id]",
                        "RequestId"      => "[unique request identifier]",
                        "RetryIndicator" => 0
                },
                "TerminalId" => "[your terminal id]",
                "Payment"    => {
                        "Amount" => {
                                "Value"        => "100",
                                "CurrencyCode" => "CHF"
                        },
                        "OrderId"     => "Id of the order",
                        "Description" => "Description of payment"
                },
                "ReturnUrls" => {
                        "Success" => "[your shop payment success url]",
                        "Fail"    => "[your shop payment fail url]"
                }
        }
        
};

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

Gast Jan

2016-08-03 10:35

Vielen Dank!
Last edited: 2016-08-03 11:34:04 +0200 (CEST)

Gast janus

2016-08-03 10:23

Deine Datenstruktur ist schlecht zu verarbeiten, sie ist nicht homogen. Homogen wäre sowas z.B.: [{},{},{}] oder zyklische Strukturen nach dem Muster Entity-Attribute-Value (Hash of Hashes).
Last edited: 2016-08-03 10:31:48 +0200 (CEST)
+4 replies
Muffi

2016-08-03 10:40

User since
2012-07-18
1465 Artikel
BenutzerIn

Ich hätt jetzt gesagt erste und letzte Zeile runde Klammern statt den geschweiften, dann sollts eigentlich gehen.
1 + 1 = 10
- +3 replies
- GwenDragon
  
  2016-08-03 12:13
  
  User since
  2005-01-17
  14759 Artikel
  Admin1
  
  Ich hab deswegen einen anonymen Hash genommen, weil ich das als Objekt wie es bei JS auch ist, und nicht als Liste abbilden wollte.
  OK, muss nicht sein.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Linuxer
    
    2016-08-03 12:41
    
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Ich denke, Muffi bezieht sich auf Jans Code, in dem er (Jan) eine anonyme Hash-Referenz an eine Hash-Variable zuweist.
    Da meckert es zu recht.
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Muffi
    
    2016-08-03 13:11
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Achso, aber so ein Objekt sollt doch eigentlich die JSON-lib draus machen.
    Ich glaub nicht, dass man sich darum kümmern muss.
    1 + 1 = 10
Raubtier

2016-08-03 15:11
User since
2012-05-04
1076 Artikel
BenutzerIn
Eine andere Alternative wäre, in deinem obigen Code einfach
Code (perl): (dl )

1 2 3

my $content = { ... };
zu schreiben (also $ statt %) und dann encode_json($content) statt encode_json(\%content) auszuführen.

Merke: {...} erzeugt eine Hash-Referenz, nicht einen Hash.
Last edited: 2016-08-03 15:13:05 +0200 (CEST)

View all threads created 2016-08-03 08:25.