How to convert tag names and values from XML into HTML using Perl -


is there way convert simple xml document html using perl give me table of tag names , tag values?

the xml file output.xml this

<?xml version="1.0"?>  <doc>     <gi-estb-mib-nph>         <estbgeneralerrorcode.0>integer: 0</estbgeneralerrorcode.0>         <estbgeneralconnectedstate.0>integer: true(1)</estbgeneralconnectedstate.0>         <estbgeneralplatformid.0>integer: 2076</estbgeneralplatformid.0>         <estbgeneralfamilyid.0>integer: 25</estbgeneralfamilyid.0>         <estbgeneralmodelid.0>integer: 60436</estbgeneralmodelid.0>         <estbmocamacaddress.0>string: 0:0:0:0:0:0</estbmocamacaddress.0>         <estbmocanumberofnodes.0>integer: 0</estbmocanumberofnodes.0>     </gi-estb-mib-nph> </doc>

i trying create html looks this

1. estbgeneralplatformid.0 - integer: 2076 2. estbgeneralfamilyid.0 - integer: 25 3.

i trying use code web having hard time understanding how generate required format html tags.

what trying this

#!/usr/bin/perl  use strict; use warnings;  use xml::parser; use xml::libxml;  #add tagnumberconversion.pl here  $parser = xml::parser->new(); $parser->sethandlers(     start => \&start,     end   => \&end,     char  => \&char,     proc  => \&proc, );  $header = &getxhtmlheader(); print $header;  $parser->parsefile( '20150630104826.xml' );  $currenttag = "";  sub start() {      ( $parser, $name, %attr ) = @_;     $currenttag = $name;      if ( $currenttag eq 'doc' ) {         print "<head><title>"             . "output of snmpwalk cpeip4"             . "</title></head>";         print "<body><h2>" . "output of snmpwalk cpeip4" . "</h2>";         print '<table summary="'             . "output of snmpwalk cpeip4"             . '"><tr><th>tag name</th><th>tag value</th></tr>';     }     elsif ( $currenttag eq 'gi-estb-mib-nph' ) {         print "<tr>";     }     elsif ( $currenttag =~ /^estb/ ) {         print "<tr>";     }     else {         print "<td>";     } }  sub end() {      ( $parser, $name, %attr ) = @_;     $currenttag = $name;      if ( $currenttag eq 'doc' ) {         print "</table></body></html>";     }     elsif ( $currenttag eq 'gi-estb-mib-nph' ) {         print "</tr>";     }     elsif ( $currenttag =~ /^estb/ ) {         print "</tr>";     }     else {         print "</td>";     } }  sub char() {     ( $parser, $data ) = @_;      print $data; }  sub proc() {     ( $parser, $target, $data ) = @_;      if ( lc( $target ) eq 'perl' ) {         $data = eval( $data );         print $data;     } }  sub getxhtmlheader() {      $header = '<?xml version="1.0" encoding="utf-8"?> <!doctype html public "-//w3c//dtd xhtml 1.0 strict//en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">';      return $header; }

this code in progress, realize overkill requirement.

so trying figure out if there quick way using perl.

please give me pointers if there indeed quick way.

the quick , dirty way use regular expression. comes risk of missing data , getting burned edge cases. since asked it...

#!/usr/bin/env perl  use strict;  open $fh, 'filename.xml'     or die "unable open filename.xml : $!"; $count = 1; print "<head><title>'output of snmpwalk cpeip4'</title></head>\n"; print "<body><h2>'output of snmpwalk cpeip4'</h2>\n"; print "<table summary='output of snmpwalk cpeip4'><tr><th>tag name</th><th>tag value</th></tr>\n"; while (my $line = <$fh>) {     next unless $line =~ m|<estb|;     # store into $tag , $value     # result of matching whitespace, followed '<'     # followed (store $tag)     # followed '>'     # followed (store $value)     # followed '<'     ($tag, $value) = $line =~ m|\s+<(.+?)>(.+?)<|;     print "<tr><td>" . $count++ . ". $tag</td><td>$value</td></tr>\n"; } print "</table></body></html>\n";

produces following:

<head><title>'output of snmpwalk cpeip4'</title></head> <body><h2>'output of snmpwalk cpeip4'</h2> <table summary='output of snmpwalk cpeip4'><tr><th>tag name</th><th>tag value</th></tr> <tr><td>1. estbgeneralerrorcode.0</td><td>integer: 0</td></tr> <tr><td>2. estbgeneralconnectedstate.0</td><td>integer: true(1)</td></tr> <tr><td>3. estbgeneralplatformid.0</td><td>integer: 2076</td></tr> <tr><td>4. estbgeneralfamilyid.0</td><td>integer: 25</td></tr> <tr><td>5. estbgeneralmodelid.0</td><td>integer: 60436</td></tr> <tr><td>6. estbmocamacaddress.0</td><td>string: 0:0:0:0:0:0</td></tr> <tr><td>7. estbmocanumberofnodes.0</td><td>integer: 0</td></tr> </table></body></html>

-

Comments

Post a Comment

Popular posts from this blog

OpenCV OpenCL: Convert Mat to Bitmap in JNI Layer for Android -

there several posts converting mat bitmap using utils.mattobitmap() function. i'm assuming function can called in java layer after importing utils class. i want transfer data memory address pointed uint32_t* bmpcontent; in code below. jniexport void jnicall java_com_nod_nodcv_nodcvactivity_runfilter( jnienv *env, jclass clazz, jobject outbmp, jbytearray indata, jint width, jint height, jint choice, jint filter) { int outsz = width*height; int insz = outsz + outsz/2; androidbitmapinfo bmpinfo; if (androidbitmap_getinfo(env, outbmp, &bmpinfo) < 0) { throwjavaexception(env,"gaussianblur","error retrieving bitmap meta data"); return; } if (bmpinfo.format != android_bitmap_format_rgba_8888) { throwjavaexception(env,"gaussianblur","expecting rgba_8888 format"); return; } uint32_t* bmpcontent; if (androidbitmap_lockpixels(env, outbmp,(void**)&bmpcontent)...
Read more

android - org.xmlpull.v1.XmlPullParserException: expected: START_TAG {http://schemas.xmlsoap.org/soap/envelope/}Envelope -

i trying hit soap api in application login purpose , getting above mentioned error , can 1 tell me going wrong , first time soap apis. here code hit soap :- vector<object> args = new vector<object>(); hashtable<string, object> hashtable = new hashtable<string, object>(); hashtable.put("email", "mss.siddhart28@gmail.com"); hashtable.put("password", "siddharth"); args.add(hashtable); soapserializationenvelope envelope = new soapserializationenvelope( soapenvelope.ver11); envelope.dotnet = true; envelope.xsd = soapserializationenvelope.xsd; envelope.enc = soapserializationenvelope.enc; (new marshalhashtable()).register(envelope); httptransportse androidhttptransport = new httptransportse( "http://tempuri.org/", 15000); androidhttptransport.debug = true; string result = ""; try { soapobject request = new soapobject("http:...
Read more

python - How to remove the Xframe Options header in django? -

i have made page has iframe . inside iframe want show multiple different links article facebook, or news, or youtube video or other possible url. but, due xframe header, unable so. referred following link: https://docs.djangoproject.com/en/1.8/ref/clickjacking/ , django xframeoptionsmiddleware (x-frame-options) - allow iframe client ip but didn't help. my settings.py file's middleware_classes is: middleware_classes = ( 'django.contrib.sessions.middleware.sessionmiddleware', 'django.middleware.common.commonmiddleware', 'django.middleware.csrf.csrfviewmiddleware', 'django.contrib.auth.middleware.authenticationmiddleware', 'django.contrib.auth.middleware.sessionauthenticationmiddleware', 'django.contrib.messages.middleware.messagemiddleware', 'django.middleware.clickjacking.xframeoptionsmiddleware', ) from http://django-secure.readthedocs.org/en/latest/middleware.html , found using ...
Read more