Sign in
apache
/
qpid-interop-test
/
038994d199318930eac1e84c79db94e8a6547183
/
.
/
get-proj-ver
blob: 4c4621332942d1e374e870ab4c965c3cbe1076d4 [
file
] [
log
] [
blame
]
#!/usr/bin/perl
use
strict
;
use
warnings
;
use
XML
::
XPath
;
my
$root
=
XML
::
XPath
->
new
(
filename
=>
'pom.xml'
);
for
my
$node
(
$root
->
find
(
'//project/version/text()'
)->
get_nodelist
)
{
print
(
$node
->
getData
,
"\n"
);
}