/xmlbench/trunk

To get this branch, use:
bzr branch http://darksoft.org/webbzr/xmlbench/trunk 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!/usr/bin/perl

use XML::LibXML;
$parser = new XML::LibXML;

sub parse {
    ($xml) = @_;
    $doc = $parser->parse_file ($xml);
    undef($doc);
}

sub filename {
    ($i) = @_;
    if (@ARGV > 1) { return $ARGV[1]; }
    else { return "../xml.tmp/$i.xml"; }
}

if (@ARGV > 0) {
    $iterations = $ARGV[0];
} else {
    $iterations = 0;
}

parse(filename(0));
for ($i=1;$i<=$iterations;$i++) {
    parse(filename($i));
}