Anzahl Elemente von ??? (Allgemeines zu Perl)

[thread]20201[/thread]

Anzahl Elemente von ???

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+5 replies
Traceman

2016-12-04 21:05
User since
2014-07-02
6 Artikel
BenutzerIn
Hallo,

ich weiß nicht mehr weiter. Ich dachte aus der json-Eingabe wird ein Array erzeugt, ich bekomme aber mit der Abfrage der Anzahl nicht das gewünschte Ergebnis.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl use strict; use warnings; use JSON; use Data::Dumper; my $json = '{...} | {"Contacts": {"SubscribedFolders": ["wert1", "wert2", "wert3"]}}'; my $text = decode_json((split / ?\| ?/, $json)[1]); print Dumper($text); my @var1 = ($text->{'Contacts'}->{'SubscribedFolders'}); my $var2 = @var1; print Dumper(@var1, $var2);
Warum steht in $var2 nicht 3? Wenn ich mit $text->{'Contacts'}->{'SubscribedFolders'}[0] kann ich auf die Werte zugreifen, mit @var1[0] nicht mehr? Die Klammern in der Zuweisungszeile von @var1 habe ich auch schon weggelassen, das gleiche Ergebniss.

Kann mir mal bitte jemand einen Tip geben, was ich falsch mache?

Danke Hardy

Bitte nicht über die Eingabe wundern, diese kommt von SOGo
- +2 replies
- Raubtier
  
  2016-12-04 22:04
  User since
  2012-05-04
  1054 Artikel
  BenutzerIn
  2016-12-04T20:05:56 Traceman
  
  Code: (dl )
  
  1 2
  
  my @var1 = ($text->{'Contacts'}->{'SubscribedFolders'}); my $var2 = @var1;
  
  Warum steht in $var2 nicht 3?
  
  Das hier: $text->{'Contacts'}->{'SubscribedFolders'} ist eine Array-Referenz! Wenn du danach schreibst @var = ($arrayref);, dann wird durch die runden Klammern einfach nur eine Liste erstellt, die als einziges Element die Array-Referenz hat. D.h. die Länge von @var ist 1, nämlich die Array-Referenz. Beim Dumper ist es empfehlenswert, immer mit \ zu arbeiten, d.h. mach mal ein print Dumper(\@var1);, dann siehst du das Problem.
  
  Die Lösung ist also: die Array-Referenz muss dereferenziert werden:
  
  Code (perl): (dl )
  
  my $laenge = @{$text->{'Contacts'}->{'SubscribedFolders'}};
  - Traceman
    
    2016-12-05 13:18
    
    User since
    2014-07-02
    6 Artikel
    BenutzerIn
    
    Hallo Raubtier,
    
    vielen Dank für die Hinweise. Jetzt geht es. In allen Beispielen mit Dumper wurden die Variablen immer ohne Backslash geschrieben. Mit sieht man wirklich das Problem.
    
    Hardy
- Gast janus
  
  2016-12-05 08:33
  Das JSON Modul macht hier Mist, es unterschlägt eine Fehlermeldung.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  # hier knallt es my $text = decode_json((split / ?\| ?/, $json)[1]); # weil $json[1] nämlich gar nicht definiert ist.
  
  Last edited: 2016-12-05 12:25:28 +0100 (CET)
- Gast janus
  
  2016-12-05 08:43
  Code (perl): (dl )
  
  print Dumper [split / ?\| ?/, $json];
  
  solltest Du Dir angucken.
  Last edited: 2016-12-05 12:25:33 +0100 (CET)

View all threads created 2016-12-04 21:05.