help me with perl script that add xml attritutes

Hi monks, may be this seems to simple but for me its hard because I am new to perl I have one xml file like this

<university>
<name>svu</name>
 <location>ravru</location>
 <branch>
   <electronics>
     <student name="vijju" number="12">
     <semester number="1"subjects="7" rank="2"/>
     </student>
     <student name="mikky" number="15">
     <semester number="1" subjects="7" rank="10"/>
     <semester number="2" subjects="4" rank="1"/>
      </student>
       <student name="clar" number="16">
       <semester number="1"subjects="7" rank="2"/>
      <semester number="3"subjects="4" rank="2"/>
       </student>
    </electronics>
  </branch>
</university>
.
.
.
.
.
<data>¨
<student name="vijju" number="12" address="polugaripalli,t.v.puram, ba
+dvel, kadapa"/>
<student name="mikky" number="15" address="papireddypalli, badvel, kad
+apa"/>
<student name="clar" number="16" address="naidu nagr, badvel, kadapa"/
+>
<student name="xxx" number="17" address="gandhi nagr, badvel, kadapa"/
+>
<student name="xxx" number="12" address="gudur, badvel, kadapa"/>
.
.
.
.
<semister number="1" subject names="EDC,PDC,CDS"/>
<semister number="2" subject names="M1,LICA,SS"/>
<semister number="3" subject names="DIP,DSP,CEM"/>
....
..
..
</data>
[download]

I need to add address from attribute studet in data element to the student attribut in the electronics element in the university tag, I need to add how many times I found the same name and number. same like subject names from data element to semister attribute in the electronics element in university tag. my output need to be like this.

<university>
<name>svu</name>
 <location>ravru</location>
 <branch>
   <electronics>
     <student name="vijju" number="12" address="polugaripalli,t.v.pura
+m, badvel, kadapa">
     <semester number="1"subjects="7" rank="2" subject names="EDC,PDC,
+CDS" />
     </student>
     <student name="mikky" number="15" address="papireddypalli, badvel
+, kadapa" >
     <semester number="1" subjects="7" rank="10" subject names="EDC,PD
+C,CDS"/>
     <semester number="2" subjects="4" rank="1" subject names="M1,LICA
+,SS"/>
      </student>
       <student name="clar" number="16" address="naidu nagr, badvel, k
+adapa" >
       <semester number="1"subjects="7" rank="2"subject names="EDC,PDC
+,CDS"  />
      <semester number="3"subjects="4" rank="2" subject names="DIP,DSP
+,CEM" />
       </student>
    </electronics>
  </branch>
</university>
[download]

Comment on help me with perl script that add xml attritutes Select or Download Code
Re: help me with perl script that add xml attritutes by moritz (Cardinal) on Nov 04, 2011 at 15:13 UTC
What have you tried so far? Think of a way how you'd do it by hand, then write a Perl program that does the same. For XML manipulation, people often recommend XML::LibXML or XML::Twig. Perl 6 - second systems done right	[reply]
Re: help me with perl script that add xml attritutes by choroba (Prior) on Nov 04, 2011 at 22:14 UTC
I usually use XML::XSH2 for XML manipulation. In this case, I needed to wrap your input file into `<xml>...</xml>` and to add _ between `subject` and `names` to make it a valid XML. The output is also different to your expected output: spaces between attributes are not optional in XML. my $input := open 935956.xml ; my $student_hash := hash concat(@name, '#', @number) $input/xml/data/s +tudent ; my $semister_hash := hash ../@number $input/xml/data/semister/@subject +_names ; my $out := create xml ; for my $university in $input/xml/university { my $new_uni := cp $university into $out/xml ; for my $student in $new_uni//student { cp xsh:lookup('student_hash', concat($student/@name, '#', $stu +dent/@number))/@address into $student ; for $student/semester cp xsh:lookup('semister_hash', ./@number +) into . ; } } save :f 935956-out.xml $out ; [download]	[reply] [d/l] [select]
Re^2: help me with perl script that add xml attritutes by veerubiji (Sexton) on Nov 09, 2011 at 14:30 UTC
thanks its working	[reply]


Don't ask to ask, just ask
	PerlMonks

help me with perl script that add xml attritutes

The best material for plates (tableware) is: