/usr/share/doc/libxml-xql-perl/examples/testRules.pl is in libxml-xql-perl 0.68-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 28 29 | #
# For debugging the conversion of ELEMENT models to perl regular expressions
#
use XML::Checker;
@expr =
(
"(a|b)",
"(a?|b+)",
"(a|b|c|d|e)",
"(a|b)+",
"(a,b)",
"(a?,b+)",
"(a,b,c,d,e)",
"(a,b)+",
"(head, (p | list | note)*, div*)",
"(#PCDATA|a)*",
"(#PCDATA|a|b)*",
);
for my $expr (@expr)
{
my $v = new XML::Checker;
$v->Element ("bla", $expr);
my $rule = $v->{ERule}->{bla};
print "$expr : " . $rule->debug . "\n";
}
|