Readig XML file from Perl

Question

I have some XML file which contains "Squishreport". I want to look for some special value of all nodes under condition. To do so, I have written a code in Perl that the main function is as follows:

sub FileCount
{
chdir( $dir ) or die "Couldn't go inside $dir directory, $!";
opendir(my $dh, $dir) or die "$0: $dir: $!
";
while (my $file = readdir($dh)) {
    # We only want files
     next unless (-f "$dir/$file");
    # Use a regular expression to find files ending in .xml
     next unless ($file =~ m/$suff$/);

     my $xml = XML::LibXML->load_xml(location => $file);

    # Iterate the entries

    for my $test ($xml->findnodes('/SquishReport/test/test')) {
        my $name_test = $test->findvalue('@name');
        # trim the value
         s/\A\s*//, s/\s*\z// for my $value_test = $test->textContent;

        print "Test Name = $name_test 
";

        for my $result ($test->findnodes('/verification/result')) {
            my $type_result = $result->findvalue('@type');

            # trim the value
             s/\A\s*//, s/\s*\z// for my $value = $result->textContent;
             print "$type_result = $value 
";
            if (($type_result eq "WARNING") || ($type_result eq "FAIL") || ($type_result eq "ERROR") || ($type_result eq "FATAL")){
                print "$type_result = $value 
";
                print "***********  $name_test is not OK *********** 

 "; 
            }
            else{
                print "***********  $name_test is OK *********** 

 ";
            }
        }
        print "
";
    }
    #}
     print "$file
";       
     $count = $count + 1;
}
closedir($dh);
if ($count eq 1){
    print "There is only one file in '' $dir '' directory.";
}
else{
    print "There are $count files in '' $dir '' directory.";
}

}

The goal is looking for the first test and type the name. Now if it there is PASS in type then write the name of test and says is OK, otherwise writes is not OK.

I am not sure if the code is the right code for the structure/goal.

My problem is that the inner for loop does not work. the instruction for XML file is as:


     
         
             
                  
                         version check test case passes!
                         
    .
    .
    .         
         
             
                  
                         version check test case passes!

**Edit: ** Here is the XML file:



    
    
        
        
    
    
        
        
            
                    
        
            
        
        
            
        
        
            
                version check test case passes!
                
            
        
        
            
    
        
        
            
        
        
            
        
        
            
        
        
            
        
        
            
        
        
            
        
        
            
                different types elements
                
            
        
        
            
                name_list= ['Scheduler', 'NCU', 'PLCSimAdv', 'simNCK', 'MCP']
                
            
        
        
            
                typ_list= ['Scheduler', u'NCU', u'PLCSimAdv']
                
            
        
        
            
        
        
            
                scheduler counter 1. read, n=0: Scheduler= 0
                
            
        
        
            
                scheduler counter 2. read, n=0: Scheduler= 0
                
            
        
        
            
        
        
            
            
        
        
    
    
        
        
            
                user path folder already exists!
                
            
        
        
            
        
        
            
        
        
            
        
        
            
        
        
            
        
        
            
        
        
    
    
        
        
            
        
        
            
        
        
            
        
        
            
                    
        
            
            
        
        
    
    
           
        
                      
        
        
            
        
        
            
        
        
            
                tst_reset_1 ok

Sobrique · Accepted Answer

This won't help:

if ($count eq 1) - that should be ==
Rather than readdir with filtering, why not just use glob ( "$dir/*.xml" )?
my $xml = XML::LibXML->load_xml(location => $file); could be breaking, because you're not changing directory. (so location should probably be $dir/$file - a problem which using the above glob avoids)

However the core of your problem is this:

for my $result ( $test->findnodes('/verification/result') ) {

Change it to:

for my $result ( $test->findnodes('./verification/result') ) {

And you'll get:

Test Name = tst_app_resources 

Test Name = tst_reset 
***********  tst_reset is OK ***********

Readig XML file from Perl

Answers (1)

Related Questions