XML - STRING - HASH (solved) (Allgemeines zu Perl)

[thread]18944[/thread]

XML - STRING - HASH [solved]

Tags: perl5 Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+3 replies

guest Dakarus

2014-03-05 13:37

Ich bekomme aus verschiedenen Quellen ->

Code: (dl )

<CQA><INFO><owner>USERNAME</owner><name>STRESS TEST</name><description>PERL BUTLER STRESS TEST</description><date>2014-12-13</date><status>1</status><version>9.08</versioAn></INFO><LOG><message>CODE INFO 1</message></LOG></CQA>

dies hier zurück - ein ganzer String. Leider kann nichts daran ändern.

wie kann ich mir daraus nun einen Hash ref string basteln alla ->

Code: (dl )

my $data = {
    INFO => {
        owner       => 'USERNAME',
        name        => 'STRESS TEST',
        description => 'PERL BUTLER STRESS TEST',
        date        => '2014-12-13',
        status      => '0',
        version     => '9.08',
        },
    LOG => {
        message => [
            'CODE INFO 1',
            'CODE INFO 2',
            'CODE INFO 3',
            ]
           },
       };

für Hilfe wäre ich euch sehr dankbar.
Last edited: 2014-03-05 13:44:37 +0100 (CET)

+2 replies
GwenDragon

2014-03-05 13:58
User since
2005-01-17
14383 articles
Admin1
Mit XML::Simple kannst du aus dem XML einen Hash erzeugen.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

use strict; use warnings; use XML::Simple; # $ref ist eine Referenz auf den erzeutgten Hash my $ref = XMLin('<CQA><INFO><owner>USERNAME</owner><name>STRESS TEST</name><description>PERL BUTLER STRESS TEST</description><date>2014-12-13</date><status>1</status><version>9.08</version></INFO><LOG><message>CODE INFO 1</message></LOG></CQA>'); use Data::Dumper; print Dumper $ref;
Ergibt:
$VAR1 = { 'INFO' => { 'owner' => 'USERNAME', 'version' => '9.08', 'status' => '1', 'date' => '2014-12-13', 'name' => 'STRESS TEST', 'description' => 'PERL BUTLER STRESS TEST' }, 'LOG' => { 'message' => 'CODE INFO 1' } };
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- guest Dakarus
  
  2014-03-05 14:34
  
  Danke
  Last edited: 2014-03-05 14:37:04 +0100 (CET)

View all threads created 2014-03-05 13:37.