Hello good people!
I have a bit of a problem with turning this piece of XML into a
Perl-variable using the XML::Parser.
Earlier i have used the XML::Dt parser to do this and it works, but the
amount of data is to big
for the later (takes to much time to parse through the file).
I wonder if there is anyone out there with experience of this that could
help me out here.
The result of the XML-code that follows would look something like this:
%Kontoutdraguttag = { Filinfo => {
SkapadDatum =>
2002-05-17 10:13,
Filnamn=>skkb0061x1,
Blankettid=>4812....
}
Kontoutdrag =>{
Startid=>162999000041,
Kontohuvud=> {
UtskriftsDatum=> 2002-10-07,
AdressatInfo=> {
.....
}
MyndighetsInfo=>{
....
}
...
}
PeriodSKM=> {
IngaendeSaldo=> { ...}
TransRadsArr[0] =>{
Spec=>...
Rantedag=>...
BeloppSKM=>...
}
TransRadsArr[1]=>{...}
...
}
....
}
}
All help appreciated!
<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE Kontoutdraguttag SYSTEM "kontoutdrag.dtd">
<Kontoutdraguttag Version="1.0">
<Filinfo>
<SkapadDatum>2002-05-17 10:13</SkapadDatum>
<Test/>
<Filnamn>skkb006x1</Filnamn>
<Blankettid>4812</Blankettid>
<AntalKontoutdrag>12</AntalKontoutdrag>
</Filinfo>
<Kontoutdrag>
<Startid>162999000041</Startid>
<KontoHuvud>
<UtskriftsDatum>2002-10-07</UtskriftsDatum>
<AdressatInfo>
<SkattekontoNr>299900-0041</SkattekontoNr>
<Namnrad1>Aktiebolaget Kamelen</Namnrad1>
<Namnrad2>exportvaror</Namnrad2>
<Adressrad1>Box 1111</Adressrad1>
<Adressrad2>615 78 STORKÖPING</Adressrad2>
<RefnrPostgiro>16299900004144</RefnrPostgiro>
<RefnrBankgiro>1629990000411</RefnrBankgiro>
<MottagarKontoNr>8032-125 714 003 6</MottagarKontoNr>
</AdressatInfo>
<MyndighetsInfo>
<MyndighetsText>MYNDIGHETEN I STOCKHOLM</MyndighetsText>
<SkrNamn>Kontoret i Norrtälje</SkrNamn>
<SkrBesoksAdress>Kungsgatan 2</SkrBesoksAdress>
<SkrAdress>Box 215</SkrAdress>
<SkrPostadress>761 23 NORRTÄLJE</SkrPostadress>
<TelefonNr>0176-19650</TelefonNr>
<TelefaxNr>0176-19650</TelefaxNr>
<TelUpplysning>0771-567 567</TelUpplysning>
<PostgiroNr>489 01 03-7</PostgiroNr>
<BankgiroNr>5050-1055</BankgiroNr>
<Epost>[EMAIL PROTECTED]</Epost>
<Webbplats>www.test.se</Webbplats>
</MyndighetsInfo>
<PeriodRubrik>Utdrag t.o.m 2002</PeriodRubrik>
</KontoHuvud>
<PeriodSKM>
<IngaendeSaldo>
<Spec>Ingående saldo</Spec>
<BeloppSKM>-510</BeloppSKM>
</IngaendeSaldo>
<TransRad>
<Spec>Debiterad prel. skatt för 2002</Spec>
<Rantedag>020213</Rantedag>
<BeloppSKM>-10000</BeloppSKM>
</TransRad>
<TransRad>
<Spec>Inbetalning bokförd 020211</Spec>
<Rantedag>020213</Rantedag>
<BeloppSKM>45000</BeloppSKM>
</TransRad>
<OverskottRad>
<Spec>Överskott före ev.utbetalning</Spec>
<BeloppSKM>19490</BeloppSKM>
</OverskottRad>
<UtbetalRad>
<Spec>Utbetalning</Spec>
<BeloppSKM>-18585</BeloppSKM>
</UtbetalRad>
<UtgaendeSaldo>
<Spec>Utgående saldo 2002-03-27</Spec>
<BeloppSKM>+905</BeloppSKM>
</UtgaendeSaldo>
</PeriodSKM>
<SlutskatteText/>
<Utbetalning>
<UtbetGrupp>
<UtbetRubrik>Utbetalningsorsak:</UtbetRubrik>
<UtbetRad>
<UtBetalSpec>Moms för januari 2002</UtBetalSpec>
<UtBetalBelopp>20000</UtBetalBelopp>
</UtbetRad>
</UtbetGrupp>
<UtbetGrupp>
<UtbetRubrik>Uppgifter om utbetalning från
skattekontot:</UtbetRubrik>
<UtbetRad>
<UtBetalSpec>Utbetaltbelopp (högst belopp enl
utbetalningsorsak ovan)*</UtBetalSpec>
<UtBetalBelopp>18585</UtBetalBelopp>
</UtbetRad>
</UtbetGrupp>
<UtbetAvslut>Beloppet sätts in på ditt konto inom en
vecka.</UtbetAvslut>
</Utbetalning>
<Slutid>162999000041</Slutid>
<AntalElement>XX</AntalElement>
</Kontoutdrag>
</Kontoutdraguttag>
Regards,
Nils-Anders
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
