Re: XML Parsing

[tobyink]

in reply to XML Parsing

use 5.010;
use XML::LibXML;

my $xml = XML::LibXML->load_xml(IO => \*DATA);

foreach my $workflow ($xml->findnodes('//workflow'))
{
    say $workflow->{name};
    
    my ($testcases) = $workflow->findnodes('./testcases');
    for (qw/ total passed failed skipped blocked /)
    {
        say "\t$_: $testcases->{$_}";
    }
}

__DATA__
<workflows>
    <workflow name="Generic Audio Driver Tests" id="8ff67565-7954-4a6c
+-84b4-6404af4a6357" owneralias="louiscl" featurepath="$\UX Platform\A
+udio\Driver" jobid="60112">
        <result starttime="9/5/2012 7:43:37 PM" executiontime="00:09:2
+9.0354215" executionoutcome="Succeeded" testoutcome="Passed" />
        <testcases total="609" passed="609" failed="0" skipped="0" blo
+cked="0" />
        <tasks>
            <task name="Deploy Packages" id="975e822e-c4de-4cfd-9748-7
+d08ff5cfee0">
                <result starttime="9/5/2012 7:43:37 PM" executiontime=
+"00:00:23.3509657" executionoutcome="Succeeded" />
                <outputdirectory>
                    <localpath>C:\Users\hivinod\TShell\Results\Submiss
+ion\0905-194337\8ff67565\975e822e\1</localpath>
                    <remotepath>\\BDCLAB-WM7-10\C$\Users\hivinod\TShel
+l\Results\Submission\0905-194337\8ff67565\975e822e\1</remotepath>
                </outputdirectory>
                <outputs>
                    <output filename="Microsoft.Phone.Test.UXPlatform.
+AVCore.AudioCore.Driver_DeployTest.log" fullpath="\\BDCLAB-WM7-10\C$\
+Users\hivinod\TShell\Results\Submission\0905-194337\8ff67565\975e822e
+\1\Microsoft.Phone.Test.UXPlatform.AVCore.AudioCore.Driver_DeployTest
+.log" />
                </outputs>
            </task>
            <task name="Execute Test Harness" id="9a1f022d-dd77-48f8-b
+3a3-60d0c70e1594">
                <commandline>TestLauncher -b te.exe -w "C:\data\test\r
+esult" -la  -a \Data\Test\bin\gaudit_mc.dll  /select:"not((@Name='*KS
+PROPERTY_PIN_NAME*')or(@Name='*INVALIDVALUE_AUDIO_MUX_SOURCE')or(@Nam
+e='*2_CONNECTION_DATAFORMAT')or(@Name='*3_CONNECTION_DATAFORMAT')or(@
+Name='*CHANNELULONG*VOLUMELEVEL'))" /enablewttlogging /outputFolder:\
+Data\Test\Result /logfile:results.wtl</commandline>
                <workingdir>\Data</workingdir>
                <result starttime="9/5/2012 7:44:00 PM" executiontime=
+"00:09:05.5944478" executionoutcome="Succeeded" testoutcome="Passed" 
+/>
                <testcases total="609" passed="609" failed="0" skipped
+="0" blocked="0" />
                <outputdirectory>
                    <localpath>C:\Users\hivinod\TShell\Results\Submiss
+ion\0905-194337\8ff67565\9a1f022d\1</localpath>
                    <remotepath>\\BDCLAB-WM7-10\C$\Users\hivinod\TShel
+l\Results\Submission\0905-194337\8ff67565\9a1f022d\1</remotepath>
                </outputdirectory>
                <outputs>
                    <output filename="results.wtl" fullpath="\\BDCLAB-
+WM7-10\C$\Users\hivinod\TShell\Results\Submission\0905-194337\8ff6756
+5\9a1f022d\1\results.wtl" />
                </outputs>
                <analyses />
            </task>
            <task name="Cleanup Dependencies" id="23e9c221-d748-49c3-9
+ee3-c6c3a31394b6">
                <result starttime="9/5/2012 7:53:06 PM" executiontime=
+"00:00:00" executionoutcome="Succeeded" />
            </task>
        </tasks>
    </workflow>
</workflows>

[remiah]

With Twig.

my $twig=XML::Twig->new(
    twig_handlers =>{
        #'//*[total="609" and passed="609"]' =>sub { # i wonder why th
+is doesn't work..?
        '//*[@total="609"]' =>sub {
            my ($twig,$elt)=@_;
            last if ( $elt->att("passed") ne "609");
            last if ( $elt->att("skipped") ne "0");
            last if ( $elt->att("blocked") ne "0");

            if ($elt->parent->gi eq 'workflow' ){
                $elt->parent->print;
            }
        }
    },
    PrettyPrint=>'indented',
)->parsefile('xml_without_error.xml');