how to split xml using xpath in perl? -

-

i have input xml have split based on doc , delt wise , save in format delt_0001.xml

this code

    #!/usr/bin/perl     use xml::xpath;      $file = 'file.xml';      $xp = xml::xpath->new(filename=>$file);       foreach $entry ( $xp->findnodes('/xml/service/main/doc') ) {        $filename = $entry->findvalue('./delt/@id');       foreach $entry1( $entry->findnodes('//delt')){       $filename = $entry1->findvalue('/delt/@id');          $content  = $entry1->tostring;     open(wr,">delt_$filename.xml");     print wr "$content\n";     close wr;      }

when run program delt portion prints in 1 xml.

input xml delt.xml

  <xml> <service> <title>split xml</title> <main> <doc id="001"> <title>doc1</title> <delt id="0001"> <title>delt1</title> <text>num1</text>`` <text>num1</text> </delt> <delt id="0002-a"> <title>delt1</title> <text>num1</text> <text>num1</text> </delt> </doc> <doc id="002"> <title>doc2</title> <delt id="0003"> <title>delt1</title> <text>num1</text> <text>num1</text> </delt> <delt id="0004"> <title>delt1</title> <text>num1</text> <text>num1</text> </delt> </doc> </main> </service> </xml>

output geting

         <delt id="0001">         <title>delt1</title>         <text>num1</text>``         <text>num1</text>         </delt>         <delt id="0002-a">         <title>delt1</title>         <text>num1</text>         <text>num1</text>         </delt>        <delt id="0003">         <title>delt1</title>         <text>num1</text>         <text>num1</text>         </delt>         <delt id="0004">         <title>delt1</title>         <text>num1</text>         <text>num1</text>         </delt>

output needed

split no 1 delt_0001.xml

<xml> <service> <title>split xml</title> <main> <doc id=001> <title>doc1</title> <delt id=0001> <title>delt1</title> <text>num1</text>`` <text>num1</text> </delt> </doc> </main> </service> </xml>

split no 2 delt_0002-a.xml

<xml> <service> <title>split xml</title> <main> <doc id=001> <title>doc1</title> <delt id=0002=a> <title>delt1</title> <text>num1</text> <text>num1</text> </delt> </doc> </main> </service> </xml>

split no 3 delt_0003.xml

<xml> <service> <title>split xml</title> <main> <doc id=002> <title>doc2</title> <delt id=0003> <title>delt1</title> <text>num1</text> <text>num1</text> </delt> </doc> </main> </service> </xml>

split no 4 delt_0004.xml

<xml> <service> <title>split xml</title> <main> <doc id=002> <title>doc2</title>     <delt id=0004> <title>delt1</title> <text>num1</text> <text>num1</text> <delt> </doc> </main> </service> </xml>

thanks in advance

it's simple xml::twig (and happy got "delete current element during parsing" work while back):

#!/usr/bin/perl  use strict; use warnings;  use xml::twig;  $delt= 'delt.xml';  xml::twig->new( twig_handlers => { delt => \&delt },                 pretty_print => 'indented',               )           ->parsefile( $delt);  exit;  sub delt   { my( $t, $delt)= @_;      $delt_file= sprintf( 'delt_%s.xml', $delt->id);      # tricky part: remove previous doc if needed     if( $prev_doc= $delt->parent( 'doc')->prev_sibling( 'doc'))        { $prev_doc->delete; }      $t->print_to_file( $delt_file);      $delt->delete;   }

Comments

Post a Comment

Popular posts from this blog

java - Oracle EBS .ClassNotFoundException: oracle.apps.fnd.formsClient.FormsLauncher.class ERROR -

-
i need in configuring java on machine because, when try loading forms, loader goes in circles , gives error: java.lang.classnotfoundexception: oracle.apps.fnd.formsclient.formslauncher.class @ sun.plugin2.applet.applet2classloader.findclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass0(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass(unknown source) @ java.lang.classloader.loadclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadcode(unknown source) @ sun.plugin2.applet.plugin2manager.createapplet(unknown source) @ sun.plugin2.applet.plugin2manager$appletexecutionrunnable.run (unknown source) @ java.lang.thread.run(unknown source) i have tried re-installing firefox, older versions of java runtime environments, disabling proxy. what missing? application working on other machines. i spent around 100 hours finding s...
Read more

c# - how to use buttonedit in devexpress gridcontrol -

-
Image
i trying create gridcontrol buttonedit in 1 of columns. when user clicks button edit, popups form select product. when selection done on popup, returns datarow selection main grid below. but when column loses focus, value wrote column disappear. here code creates gridcontrol's data , buttonedit's click event. private void frmsiparisnew_load(object sender, eventargs e) { dt = new datatable(); dt.columns.add("malzeme_kodu",typeof(string)); dt.columns.add("malzeme_aciklama", typeof(string)); dt.columns.add("adet", typeof(decimal)); dt.columns.add("birim", typeof(string)); dt.columns.add("fiyat", typeof(decimal)); dt.columns.add("kur", typeof(string)); dt.columns.add("tutar", typeof(decimal)); datarow dr = dt.newrow(); dt.rows.add(dr); gc.datasource = dt; } private void repositoryitembuttoneditmal...
Read more

How do you convert a timestamp into a datetime in python with the correct timezone? -

-
you naively expect work: import pytz datetime import datetime def tz_datetime_from_timestamp(timestamp): """convert timestamp datetime """ tz = pytz.timezone('australia/perth') server_time = datetime.utcnow() delta = tz.utcoffset(server_time) value = datetime.utcfromtimestamp(timestamp).replace(tzinfo=tz) return value + delta print tz_datetime_from_timestamp(1416387060) and convert timestamp 1416387060 wed nov 19 16:51:00 2014 gmt+8:00. ...but not. prints: 2014-11-19 16:51:00+07:43 the timezone of australia/perth not gmt+7:43. it gmt+8:00. unequivocally stated on australian government website http://www.australia.gov.au/about-australia/our-country/time : awst equal coordinated universal time plus 8 hours (utc +8). so, heck pytz pulling 7.43 from? well, turns out pytz pulls data http://www.iana.org/time-zones time zone database, , database states: # western australia # # rule name type in on @...
Read more