String parsen (gelöst) (Allgemeines zu Perl)

[thread]19411[/thread]

String parsen [gelöst]

Tags: perl5 parsen Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+5 replies
Gast fasel

2014-12-02 15:00
Wie kann ich den folgenden Daten, die ich in einem String bekomme (Zeilenumbrüche zur besseren lesbarkeit eingefügt) am geschicktesten parsen, um ihn dann weiterverarbeiten zu können? Die Anzahl der Elemente zwischen den eckigen Klammern kann variieren.
Code: (dl )

1 2 3 4 5

{"foo":[ {"a":"aA","b":"bA","c":"cA"}, {"a":"aB","b":"bB","c":"cB"}, {"a":"aC","b":"bC","c":"cC"} ]}
Danke vorab!
Last edited: 2014-12-02 15:13:03 +0100 (CET)
- Muffi
  
  2014-12-02 15:20
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Sieht nach JSON aus, da gibts Module die das können.
  1 + 1 = 10
- +2 replies
- GwenDragon
  
  2014-12-02 15:26
  User since
  2005-01-17
  14759 Artikel
  Admin1
  JSON gibts dafür. ;)
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  my $data = <<'DATA'; {"foo":[ {"a":"aA","b":"bA","c":"cA"}, {"a":"aB","b":"bB","c":"cB"}, {"a":"aC","b":"bC","c":"cC"} ]} DATA use JSON; my $json = JSON->new->utf8; my $perl_scalar = $json->decode( $data );
  
  Siehe https://metacpan.org/pod/JSON#decode_json
  
  print $perl_scalar->{foo}[1]->{a};
  ergibt dann:
  aB
  Last edited: 2014-12-02 15:31:24 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Gast fasel
    
    2014-12-02 15:51
    
    JSON ist wohl das richtige Stichwort, danke Euch!
    Last edited: 2014-12-02 15:54:17 +0100 (CET)
- clms
  
  2014-12-02 15:30
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  In diesem konkreten Fall sieht der String fast wie gültiges Perl aus:
  Ein anonymes Hash, dessen Value(s?) ein Array-Ref mit lauter Hashes ist.
  
  Man muss nur : durch => oder , ersetzen und kann dann den String mit eval in die Perl-Datenstruktur bringen, z.B. so
  
  Code (perl): (dl )
  
  1 2 3
  
  my $string = ...; $string =~ s/:/=>/g; my $datastruct = eval $string;
  
  Das setzt freilich voraus, dass der String wirklich immer solch eine Struktur hat und aus einer vertrauenswürdigen Quelle stammt. Je nach Inhalt des evaluierten Strings kann das eval $string fatal sein.

View all threads created 2014-12-02 15:00.