Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^2: reading multiple xmls in a folder and to get tagvalues stored and then printed to HTML

by numberuno (Initiate)
on Apr 27, 2012 at 08:15 UTC ( #967541=note: print w/ replies, xml ) Need Help??


in reply to Re: reading multiple xmls in a folder and to get tagvalues stored and then printed to HTML
in thread reading multiple xmls in a folder and to get tagvalues stored and then printed to HTML

I could reach to this level with your help, but some silly mistake is haunting..

use XML::Simple qw(:strict); use File::Find; use strict; use warnings; use Carp; use File::Find; use XML::Parser; use File::Spec::Functions qw( canonpath ); if ( @ARGV == 0 ) { push @ARGV, "D:\\xml test"; warn "Using default path $ARGV[0]\n Usage: $0 path ...\n"; } open(HTML_FILE, ">JBAT_Report.html") || die "Can't open file: $!\n"; # Print the initial HTML tags print HTML_FILE "<html>\n<body>\n<h1>BAT Report - JMeter Test</h1>\n<h +r><br><table class=MsoTableGrid border=1 cellspacing=0 cellpadding=0 +><tr><th><p>TestPlan</p></th><th><p>Test Failed?</p></th><th><p>Failu +reMessage</p></th><th><p>Link to Source</p></th></tr>"; find( sub { return unless ( /[.]log\z/i and -f ); #getting multiple xml fi +les with .log format extract_information(); return; }, @ARGV ); sub extract_information { my( $error, $value, $failure, $failureMessage ) = ("") x 4; my $xmlFile = $_; # is this correct? #print HTML_FILE $xmlFile; my $xmlDocument = XMLin($xmlFile, ForceArray => 1, KeyAttr => {}, ); # it shows error here foreach my $httpSample (@{$xmlDocument->{httpSample}}) { print HTML_FILE qq| $httpSample->{assertionResult}->[0]->{failure} +->[0]\n|; print HTML_FILE qq| $httpSample->{assertionResult}->[0]->{error}-> +[0]\n|; print HTML_FILE qq| $httpSample->{assertionResult}->[0]->{failureM +essage}->[0]\n\n|; } print HTML_FILE <<"EOF"; <tr><td><p>$value</p><td><p>$failure</p></td><td><p>$failureMessage</p +></td></tr> EOF return; } print HTML_FILE "</body><br></html>"; close (HTML_FILE);
But its throwing "File does not exist: 0 at 98675.pl line 33"


Comment on Re^2: reading multiple xmls in a folder and to get tagvalues stored and then printed to HTML
Download Code
Re^3: reading multiple xmls in a folder and to get tagvalues stored and then printed to HTML
by Anonymous Monk on Apr 27, 2012 at 12:11 UTC

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (14)
As of 2014-07-29 14:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (218 votes), past polls