Opened by west at 2005-03-10 11:36
User since
2005-02-21
4 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-02-21
4 Artikel
BenutzerIn
Ich habe ein Problem mit XML::Simple
Eigentlich sollte folgender Code aus dem XML file ein Objekt namens $testcase_xml erstellen. Allerdings muss ich zudem
noch einen Hash (%testcase_xml) definieren.
Kann mir jemand einen Tipp geben wieso ich diesen Hash brauche und ob es vielleicht auch eine Möglichkeit gibt gleich von Anfang an einen Hash anstelle eines Objektes zu erstellen?
Besten Dank
Stefan
Eigentlich sollte folgender Code aus dem XML file ein Objekt namens $testcase_xml erstellen. Allerdings muss ich zudem
noch einen Hash (%testcase_xml) definieren.
Kann mir jemand einen Tipp geben wieso ich diesen Hash brauche und ob es vielleicht auch eine Möglichkeit gibt gleich von Anfang an einen Hash anstelle eines Objektes zu erstellen?
Besten Dank
Stefan
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
use warnings;
use XML::Simple;
use Data::Dumper;
use strict;
my %testcase_xml;
my $testcase_xml;
$testcase_xml = XMLin('./casout.xml',ForceArray=>1 , KeyAttr=>'testcase');
print "\n". Dumper \$testcase_xml;
print $testcase_xml->{'testcase'}->[0]->{'print'}->[0]->{'command'};
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
<?xml version="1.0"?>
<cas-regression version="1.0" timestamp="2005-03-07 15:33:45">
<testcase name="read infofields contract" file="infofieldscontr_read.cmd">
<print name="infofield 6" command="INFOFIELDSCONTR.READ-ACK" position="8" />
</testcase>
<testcase name="create customer" file="cust+tickler+fee+info_write.cmd">
<print name="customer_id" command="COMMIT_CUSTOMER-ACK" position="3" />
<print name="custcode" command="COMMIT_CUSTOMER-ACK" position="2" />
<replace value="10" command="CUSTOMER.WRITE" commandnr="0" position="1" />
<print name="creditlimit" command="CUSTOMER.WRITE" position="38" />
</testcase>
</cas-regression>