Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: trouble,, need help! (parsing apache jmeter xml, preparing html report)

by Anonymous Monk
on Apr 25, 2012 at 08:19 UTC ( #967013=note: print w/ replies, xml ) Need Help??


in reply to trouble,, need help!

Your program looks like an unfinished thought :) you never setup the xml parser ...

JMeter docs hint it comes with a mailer and xsl for fomatting report http://svn.apache.org/viewvc/jmeter/trunk/extras/jmeter-results-report.xsl?view=markup, but if you insist on perl, use XML::Twig; # its pure-perl built on top of XML::Parser

Write it like this, use autodie for automagic error checking

#!/usr/bin/perl -- use strict; use warnings; use autodie; use XML::Twig; Main( @ARGV ); exit( 0 ); sub Main { parseJmeter( \*DATA, \*STDOUT ); # DEMO } sub parseJmeter { my( $inFilenameOrHandle, $outHandle ) = @_; my( $error, $value, $failure, $failureMessage ) = ("") x 4; # INIT + TO EMPTY my $t = XML::Twig->new( twig_handlers => { 'failure' => sub { warn $_->path; $failure = $_->text; }, 'failureMessage' => sub { warn $_->path; $failureMessage = $_->text; }, 'error' => sub { warn $_->path; $error = $_->text; }, '/*/*//httpSample' => sub { warn $_->path; ## children $value .= $_->att('lb') . "\n"; }, '/*/httpSample' => sub { # TRIGGERED LAST, the daddy httpSampl +e warn 'YO ', $_->path; $value .= $_->att('lb') . "\n"; ## append print $outHandle qq{ <tr><td><p> $value </p> <td><p> $failure </p></td> <td><p> $failureMessage </p></td></tr> }; ( $error, $value, $failure, $failureMessage ) = ("") x 4; + # RESET TO EMPTY }, }, ); $t->xparse( $inFilenameOrHandle ); $t->purge; return; } __END__ <?xml version="1.0" encoding="UTF-8"?> <testResults version="1.2"> -- HTTP Sample, with nested samples <httpSample t="1392" lt="351" ts="1144371014619" s="true" lb="HTTP Request" rc="200" rm="OK" tn="Listen 1-1" dt="text" de="iso-8859-1" by="12407"> <httpSample t="170" lt="170" ts="1144371015471" s="true" lb="http://www.apache.org/style/style.css" rc="200" rm="OK" tn="Listen 1-1" dt="text" de="ISO-8859-1" by="1002"> <responseHeader class="java.lang.String"></responseHeader> <requestHeader class="java.lang.String">MyHeader: MyValue</request +Header> <responseData class="java.lang.String"></responseData> </httpSample> <httpSample t="200" lt="180" ts="1144371015641" s="true" lb="http://www.apache.org/images/asf_logo_wide.gif" rc="200" rm="OK" tn="Listen 1-1" dt="bin" de="ISO-8859-1" by="586 +6"> <responseHeader class="java.lang.String"></responseHeader> </httpSample> <responseHeader class="java.lang.String"></responseHeader> <requestHeader class="java.lang.String">MyHeader: MyValue</requestHe +ader> <responseData class="java.lang.String"></responseData> <cookies class="java.lang.String"></cookies> <method class="java.lang.String">GET</method> <queryString class="java.lang.String"></queryString> <url>http://www.apache.org/</url> </httpSample> </testResults>

Since http://search.cpan.org/perldoc/XML::Twig#text doesn't return encoded data, you should look into using http://search.cpan.org/perldoc/XML::Twig#html_encode

I also recommend perlintro, http://learn.perl.org/books/beginning-perl/, http://perl-tutorial.org/, Modern Perl


Comment on Re: trouble,, need help! (parsing apache jmeter xml, preparing html report)
Download Code
Re^2: trouble,, need help! (parsing apache jmeter xml, preparing html report)
by numberuno (Initiate) on Apr 26, 2012 at 09:40 UTC

    thanks appreciated your help.2 things here, when I executed the script with the same sample you have provided, I got this errors:

    Name "main::DATA" used only once: possible typo at d:\xml test\NewTria +l.pl line 10. not well-formed (invalid token) at line 1, column 4, byte 4 at C:/stra +wberry/perl/vendor/lib/XML/Parser.pm line 187 at d:\xml test\NewTrial.pl line 54

    secondly, I am executing Jmeter on commandline so the results are individual xml files, I have to read through all and filter those values. Thanks in advance! Bijoy

      I got this errors: ... not well-formed (

      This means you did not use the download link, you should use it, How does 'Select Code to Download' Work?

      Name "main::DATA" used only once: possible typo ...

      This means you did not have __END__ or __DATA__ section but still used  \*DATA in the program, in other words, you did not run the program I posted

      secondly, I am executing Jmeter on commandline so the results are individual xml files, I have to read through all and filter those values.

      I understood :)

        Am just catching up with perl.. I did not take _END_ earlier. I corrected it but now I see this issue.
        no element found at line 1, column 0, byte 0 at C:/strawberry/perl/ven +dor/lib/XML/Parser.pm line 187 at d:\xml test\NewTrial.pl line 53
        can I make this to read all xmls in a folder?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://967013]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2014-10-26 08:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (152 votes), past polls