Hi,
i m very new to perl and programming...pls help me....
i have an XML which is below mentioned:
<Body>
<FreemanFees>
<SdcLoanFacilityNumber>133752115</SdcLoanFacilityNumber>
<DealId>34390939283</DealId>
<Tranche>
<SdcDealNumber>133753116</SdcDealNumber>
<ManagerFeeAndCredits>
<ManagerFeeAndCredit>
<FreemanFeesForManager scale="6" currencyId="500110" sdcCurrencyCode="US">0</FreemanFeesForManager>
<ManagerNumberForFreemanFee>8320</ManagerNumberForFreemanFee>
</ManagerFeeAndCredit>
</ManagerFeeAndCredits>
</Tranche>
</FreemanFees>
<FreemanFees>
<SdcLoanFacilityNumber>133754115</SdcLoanFacilityNumber>
<DealId>34390939284</DealId>
<Tranche>
<SdcDealNumber>133755116</SdcDealNumber>
<ManagerFeeAndCredits>
<ManagerFeeAndCredit>
<FreemanFeesForManager scale="6" currencyId="500110" sdcCurrencyCode="US">0</FreemanFeesForManager>
<ManagerNumberForFreemanFee>9678</ManagerNumberForFreemanFee>
</ManagerFeeAndCredit>
<ManagerFeeAndCredit>
<FreemanFeesForManager scale="6" currencyId="500110" sdcCurrencyCode="US">0</FreemanFeesForManager>
<ManagerNumberForFreemanFee>5390</ManagerNumberForFreemanFee>
</ManagerFeeAndCredit>
</ManagerFeeAndCredits>
</Tranche>
</FreemanFees>
</Body>
i have given space after brackets else it is getting converted...
and my code is as below:
use XML::Simple;
use Data::Dumper;
$xml = new XML::Simple (KeyAttr=>[]);
$data = $xml->XMLin("fm.xml");
my $booklist = XMLin('fm.xml');
foreach my $FreemanFees (@{$booklist->{FreemanFees}}) {
print
$FreemanFees->{SdcLoanFacilityNumber} , "," ,
$FreemanFees->{DealId} ,",",
$FreemanFees->{Tranche}->{SdcDealNumber} , "," ,
$FreemanFees->{Tranche}->{ManagerFeeAndCredits}->{ManagerFeeAndCredit}->{FreemanFeesForManager}->{ManagerNumberForFreemanFee}, ",",
$FreemanFees->{Tranche}->{ManagerFeeAndCredits}->{ManagerFeeAndCredit}->{FreemanFeesForManager}->{currencyId},",",
$FreemanFees->{Tranche}->{ManagerFeeAndCredits}->{ManagerFeeAndCredit}->{FreemanFeesForManager}->{sdcCurrencyCode} , "," ,
$FreemanFees->{Tranche}->{ManagerFeeAndCredits}->{ManagerFeeAndCredit}->{FreemanFeesForManager}->{scale}, ",",
$FreemanFees->{Tranche}->{ManagerFeeAndCredits}->{ManagerFeeAndCredit}->{FreemanFeesForManager}->{content} , "," ,"\n";
}
my output of my program is as follows:
133752115,34390939283,133753116,,500110,US,6,0,
133754115,34390939284,133755116,,,,,,
problem is i m not able to fetch all the tag values which are repeating in the same node....can anyone help me in this aspect or guide me...
Regards
Amar