perl code for extracting xml tag values and converting into CSV

Question

4.00/5 (1 vote)

See more:

Hi,
i m very new to perl and programming...pls help me....
i have an XML which is below mentioned:

HTML

<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:

PERL

#!/usr/bin/perl

# Script to illustrate how to parse a simple XML file
# and pick out all the values for a specific element, in
# this case all the titles.

# use strict;
use XML::Simple;
use Data::Dumper;

# create object
$xml = new XML::Simple (KeyAttr=>[]);

# read XML file
$data = $xml->XMLin("fm.xml");


my $booklist = XMLin('fm.xml');    #booklist is the array 
# print Dumper($booklist);

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

Posted 19-Apr-12 1:22am

Amar Venkat Jammula

Updated 25-Apr-12 2:42am

Chris Maunder772.7K

v4

Add a Solution

Comments

Nelek 19-Apr-12 17:48pm

Edit: Changed code tag to perl

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

loctrice · Answer 1 · 2012-04-19T10:41:00

It's been a while since I did xml with perl. When I learned to do it, we did something like this:

PERL

#!/usr/bin/perl

#use xml parser
use XML::Parser;

#set up the parser obj
$xp = new XML::Parser();
$xp->setHandlers(Start=> \&start,End=> \&end, Char => \&cdata);

#get some use variables
$currentTag = "";
$currentData = "";

#get the file
$xp->parsefile("YOURFILENAME.xml");

#this is called when a start tag is found
sub start()
{
    my($parser,$name,%attr) = @_;
    $currentTag = $name;
}

#this is called when data is found
sub cdata()
{
    my($parser,$data) = @_;

   #use logic here to do different things with tags
   if($currentTag eq 'what i was looking for')
    {
       $currentData .= $data;
    }
   elseif($currentTag eq 'something else i might use')
    {
       #do something else with data
    }
}


#this is called when end of tag is found
sub end()
{
    my($parser,$name) = @_;

    if($name eq 'something i was looking for')
     {
        #output because your tag closed. 

        #reset
       $currentData = "";
     }

    $currentTag = "";
}

I find that slightly easier to keep track of , but that is probably just preference. Most of the time I was picking through rss feeds. To me it seemed to run in logical order, and it lets you go tag by tag.

Amar Venkat Jammula · Answer 2 · 2012-04-19T20:59:00

Solution 2

i m not able to follow... can you pls give me specific code...

Posted 19-Apr-12 20:59pm

Amar Venkat Jammula

Comments

loctrice 20-Apr-12 16:57pm

I gave example code. What specifically are you having trouble following? If you point it out, I'll be happy to expand.

Amar Venkat Jammula 24-Apr-12 9:01am

problem is i m not able to fetch all the tag values which are repeating in the same node...please refer my xml that i have pasted above....

loctrice 24-Apr-12 9:44am

That is why I posted the solution I did. You attach a function to each opening tag, closing tag, and data. It will execute the firs any time an opening tag is found, the data when it reads between, and the last whenever a closing is found. Play around with it a little bit, it will give you the control you are looking for.