XML to text file

**KevinADC** · Apr 17 '07, 04:50 PM

What have you tried so far?

**ramesh9999** · Apr 17 '07, 05:08 PM

Originally posted by KevinADC

What have you tried so far?

i haven't started coding yet....as i am new to perl and xml, looking out for the way to proceed... help me

**KevinADC** · Apr 17 '07, 05:21 PM

Beginning Perl

**ramesh9999** · Apr 17 '07, 08:13 PM

Read an xml file and write data to a txt file.... urgent

Hi,

I am new to perl and xml.... please help me out with the following as this is urgent:
Can anyone help me with the code....
I have a xml file:

<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE FOF (View Source for full doctype...)>
- <FOF Name="BBH3" Date="20070413" Last="1">
- <OB cl="FOMessage.F IOMMessage.FIOM Object" no="1019.1008.5 1" vr="1.43" od="1" mn="0">
<tx no="51" nm="provider1ID " mn="0" ky="1" />
<tx no="51" nm="provider2ID " mn="0" ky="1" />
<tx no="51" nm="provider3ID " mn="0" ky="1" />
<sp no="1008" nm="creationTim e" mn="0" />
<tx no="1008" nm="author" mn="0" />
<nu no="1019" nm="revisionNo " mn="0" />
<sp no="1019" nm="createTimes tamp" mn="0" />
<tx no="1019" nm="createUserI D" mn="0" vl="WMS" />
<tx no="1019" nm="initiatorId " mn="0" />
<tx no="1019" nm="messageFrom ID" mn="0" vl="iss-blade4.local.wm gruppe.de_21221 _2_0" />
<tx no="1019" nm="messageToID " mn="0" vl="iss-blade4.local.wm gruppe.de_21221 _2_0" />
<fg no="1019" nm="isEndOfDeli very" mn="0" />
<fg no="1019" nm="isExecuted " mn="0" />
- <R no="1019" nm="fiomData">
- <RP mn="0">
- <OB cl="QuoteHolder .TopLevelObject .FIOMObject" no="208.1080.51 " vr="1.43" od="2" mn="3">
<tx no="51" nm="provider1ID " mn="0" ky="1" />
<tx no="51" nm="provider2ID " mn="1" ky="1" vl="WMS" ov="" />
<tx no="51" nm="provider3ID " mn="0" ky="1" />
<cr no="208" nm="currency" mn="4" ky="1" vl="6 WKN 965642 Waehrung_BdB EO ISIN EU0009656420 BoersenkuerzelI nland EUR Waehrung_ISO421 7 EUR DB_KEY 69" />
<R no="1080" nm="result" />
- <R no="1080" nm="vdpsInforma tion">
- <RP mn="0">
+ <OB cl="VDPSInforma tion.FIOMObject " no="160.51" vr="1.43" od="3" mn="3">
<tx no="51" nm="provider1ID " mn="0" ky="1" />
<tx no="51" nm="provider2ID " mn="0" ky="1" />
<tx no="51" nm="provider3ID " mn="0" ky="1" />
<fg no="160" nm="hasPendingA ctivities" mn="4" vl="FALSE" />
<tx no="160" nm="vstName" mn="0" vl="QuoteHolder " />
<tx no="160" nm="vstVersion " mn="0" vl="WM_003a" />

<tx no="160" nm="createUserI D" mn="0" vl="WMS" />
<sp no="160" nm="createTimes tamp" mn="0" vl="05.07.2005 - 22:02:15 @0" />
<tx no="160" nm="updateUserI D" mn="3" vl="WMS" ov="unknown" />
<sp no="160" nm="updateTimes tamp" mn="3" vl="16.04.2007 - 10:24:40 @0" ov="15.04.2007 - 11:26:04 @0" />
<nu no="160" nm="vstQuality " mn="4" vl="10" />
<fg no="160" nm="isRelevant " mn="4" vl="TRUE" />
<tx no="160" nm="modificatio nReason" mn="0" />
<nu no="160" nm="revisionNo " mn="3" vl="529" ov="528" />
<tx no="160" nm="remarks" mn="0" />
<fg no="160" nm="hasFutureMe ssages" mn="0" />
<nu no="160" nm="vstRequired Quality" mn="4" vl="5" />
<tx no="160" nm="provider1Sy mbol" mn="0" ky="1" />
<tx no="160" nm="provider2Sy mbol" mn="0" ky="1" />
<tx no="160" nm="provider3Sy mbol" mn="0" ky="1" />

<nu no="160" nm="vstMaximumQ uality" mn="0" vl="10" />
<nu no="160" nm="newVstQuali ty" mn="1" vl="10" ov="" />
<fg no="160" nm="isChecked" mn="0" />
<tx no="160" nm="messageInfo " mn="0" />
<fg no="160" nm="fotWizardIs Disabled" mn="0" />


<tx no="160" nm="foDBKey" mn="0" />
<fg no="160" nm="isOnDB" mn="4" vl="TRUE" />
<fg no="160" nm="isFastInser tion" mn="0" />

<R no="160" nm="genericInfo rmations" />
<R no="160" nm="areaInforma tions" />
</OB>
</RP>
</R>
<R no="1080" nm="control" />
<R no="1080" nm="pendingActi vity" />
<R no="1080" nm="pendingChan ge" />
- <WR no="208" tn="BTID3" nm="instrument" >
<id no="0_BTID3" tn="BTID3" nm="destination Key" mn="3" vl="1 WKN 977961" ov="5 CommonCode 8492301 WKN 977961 ISIN DE0009779611 BoersenkuerzelI nland FPJB DB_KEY 18022" />
</WR>
- <R no="208" nm="recentQuote Values">
- <RP mn="0">
- <OB cl="QuoteValue. FIOMObject" no="213.51" vr="1.43" od="4" mn="1">
<tx no="51" nm="provider1ID " mn="0" ky="1" />
<tx no="51" nm="provider2ID " mn="1" ky="1" vl="20070413K01 005L21NULK02_1_ 4" ov="20070413K01 005L21NULK02_1_ 4" />
<tx no="51" nm="provider3ID " mn="0" ky="1" />
<tx no="213" nm="quoteTypeId Symbol" mn="1" vl="03_K02_1_4 " ov="03_K02_1_4 " />

<ft no="213" nm="quoteValue " mn="1" vl="75.35" ov="75.35" />

<ft no="213" nm="quoteSize" mn="0" />
<sp no="213" nm="quoteTime" mn="1" vl="13.04.2007 - 99:99:99 @99" ov="13.04.2007 - 99:99:99 @99" />


<fg no="213" nm="isCorrectio n" mn="0" />
<sp no="213" nm="validUntil " mn="0" />




<tx no="213" nm="quoteTypeSc hemeSymbol" mn="1" vl="03_Fondspre ise" ov="03_Fondspre ise" />

<lg no="213" nm="valueDescr " mn="0" />
<R no="213" nm="listingInfo rmation" />
<R no="213" nm="providedSer vice" />
<R no="213" nm="quoteListin gs" />
<RD no="213" nm="quoteType" mn="0" kyA="quoteTypeI dSymbol/quoteTypeScheme Symbol" />
</OB>
</RP>
- <RP mn="0">
- <OB cl="QuoteValue. FIOMObject" no="213.51" vr="1.43" od="5" mn="1">
<tx no="51" nm="provider1ID " mn="0" ky="1" />
<tx no="51" nm="provider2ID " mn="1" ky="1" vl="20070413K02 004L21NULK02_1_ 4" ov="20070413K02 004L21NULK02_1_ 4" />
<tx no="51" nm="provider3ID " mn="0" ky="1" />
<tx no="213" nm="quoteTypeId Symbol" mn="1" vl="03_K02_1_4 " ov="03_K02_1_4 " />

<ft no="213" nm="quoteValue " mn="1" vl="71.76" ov="71.76" />

<ft no="213" nm="quoteSize" mn="0" />
<sp no="213" nm="quoteTime" mn="1" vl="13.04.2007 - 99:99:99 @99" ov="13.04.2007 - 99:99:99 @99" />


<fg no="213" nm="isCorrectio n" mn="0" />
<sp no="213" nm="validUntil " mn="0" />




<tx no="213" nm="quoteTypeSc hemeSymbol" mn="1" vl="03_Fondspre ise" ov="03_Fondspre ise" />

<lg no="213" nm="valueDescr " mn="0" />
<R no="213" nm="listingInfo rmation" />
<R no="213" nm="providedSer vice" />
<R no="213" nm="quoteListin gs" />
<RD no="213" nm="quoteType" mn="0" kyA="quoteTypeI dSymbol/quoteTypeScheme Symbol" />
</OB>
</RP>
- <R no="208" nm="providedSer vice">
- <RP mn="0">
- <OB cl="ProvidedSer vice.FIOMObject " no="310.51" vr="1.43" od="11" mn="4">
<tx no="51" nm="provider1ID " mn="0" ky="1" />
<tx no="51" nm="provider2ID " mn="0" ky="1" />
<tx no="51" nm="provider3ID " mn="0" ky="1" />
<dt no="310" nm="beginDate" mn="0" />
<dt no="310" nm="endDate" mn="0" />
- <WR no="310" tn="BTID2" nm="institution ">
<id no="0_BTID2" tn="BTID2" nm="destination Key" mn="3" vl="1 Institution 848758" ov="5 Abwicklungsstel le 4039 Betreuer 4039 Institution 848758 IBEI DE08487588 DB_KEY 54487" />
</WR>
- <WR no="310" tn="BTID5" nm="instrumentS ervice">
<id no="0_BTID5" tn="BTID5" nm="destination Key" mn="4" vl="1 InvestmentFonds Preise WMGruppe" />
</WR>
</OB>
</RP>
</R>
</OB>
</RP>
</R>
</OB>

Output:
I need a perl script and the output (txt file) of the perl script is as follows:
#(ISIN, valueType, quoteValue,quot eTime)
DE0009779611,90 01,75.35,200704 13
DE0009779612,90 01,97.12,200704 13
.
.

Need to take the Date from the header ie 3rd line and compare it with the date in quoteTime. If the date matches, write it into txt file.If it doesn't match, then discard
Here i need to get only the quoteValue for valueType =9001 and not for 9002

Would appreciate if anyone helps me with this

**KevinADC** · Apr 18 '07, 12:45 AM

the scenario is:

you start the code, we help.

Or we point you to resouces that can get you started. I did that in your other post but you seem to have ignored that.

**savanm** · Apr 18 '07, 08:52 AM

First u must show ur code...then only v wl know ur need

use Cwd;
$path = getcwd();
$path =~s/\\/\//sgi;
opendir(DIR,$pa th) || die("cannot open the file");
@html = grep(/\.xml/,readdir(DIR));
closedir(DIR);
foreach $files (@xml)
{

submain($path." \/".$files);
}

sub submain()
{
$xml = shift;
$txt = $html;
$txt=~s/\.xml/\.txt/g;
open(FIL,$xml);
then proceed According to ur need...........
This may help u.

XML to text file

XML to text file

Comment

Comment

Comment

Comment

Comment

Comment