XML to text file

[ramesh9999]

Hi all,

I am new to perl and xml ...
Can anyone help me out to read an xml file and write it to text file.

[KevinADC]

What have you tried so far?

[ramesh9999]

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]

Beginning Perl

[ramesh9999]

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" />
<em no="160" nm="foType" mn="4" dm="FOType" vl="500" />
<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" />
<em no="160" nm="dataStatusT ype" mn="0" dm="DataStatusT ype" />
<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" />
<em no="160" nm="blockingCod eType" mn="0" dm="BlockingCod eType" />
<em no="160" nm="logicDeleti onType" mn="0" dm="LogicDeleti onType" />
<tx no="160" nm="foDBKey" mn="0" />
<fg no="160" nm="isOnDB" mn="4" vl="TRUE" />
<fg no="160" nm="isFastInser tion" mn="0" />
<em no="160" nm="priorityTyp e" mn="0" dm="PriorityTyp e" />
<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 " />
<em no="213" nm="valueType" mn="1" dm="ValueType" vl="9001" ov="9001" />
<ft no="213" nm="quoteValue " mn="1" vl="75.35" ov="75.35" />
<em no="213" nm="valueStyleT ype" mn="1" dm="ValueStyleT ype" vl="5" ov="5" />
<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" />
<em no="213" nm="sizeStyleTy pe" mn="0" dm="SizeStyleTy pe" />
<em no="213" nm="reliability Type" mn="0" dm="Reliability Type" />
<fg no="213" nm="isCorrectio n" mn="0" />
<sp no="213" nm="validUntil " mn="0" />
<em no="213" nm="settlementT imeType" mn="0" dm="SettlementT imeType" />
<em no="213" nm="settlementC odeType" mn="0" dm="SettlementC odeType" />
<em no="213" nm="settlementS tatusType" mn="0" dm="QuoteSettle StatusType" />
<em no="213" nm="valueStyleR efinedType" mn="1" dm="ValueStyleR efinedType" vl="9121" ov="9121" />
<tx no="213" nm="quoteTypeSc hemeSymbol" mn="1" vl="03_Fondspre ise" ov="03_Fondspre ise" />
<em no="213" nm="fixingCapit alEventType" mn="0" dm="FixingCapit alEventType" />
<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 " />
<em no="213" nm="valueType" mn="1" dm="ValueType" vl="9002" ov="9002" />
<ft no="213" nm="quoteValue " mn="1" vl="71.76" ov="71.76" />
<em no="213" nm="valueStyleT ype" mn="1" dm="ValueStyleT ype" vl="4" ov="4" />
<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" />
<em no="213" nm="sizeStyleTy pe" mn="0" dm="SizeStyleTy pe" />
<em no="213" nm="reliability Type" mn="0" dm="Reliability Type" />
<fg no="213" nm="isCorrectio n" mn="0" />
<sp no="213" nm="validUntil " mn="0" />
<em no="213" nm="settlementT imeType" mn="0" dm="SettlementT imeType" />
<em no="213" nm="settlementC odeType" mn="0" dm="SettlementC odeType" />
<em no="213" nm="settlementS tatusType" mn="0" dm="QuoteSettle StatusType" />
<em no="213" nm="valueStyleR efinedType" mn="1" dm="ValueStyleR efinedType" vl="9121" ov="9121" />
<tx no="213" nm="quoteTypeSc hemeSymbol" mn="1" vl="03_Fondspre ise" ov="03_Fondspre ise" />
<em no="213" nm="fixingCapit alEventType" mn="0" dm="FixingCapit alEventType" />
<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]

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]

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.