macros/xerces-version.pl


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

$maj = 0;
$min = 0;
while (<>) {
  if (/xerces-c(\d+)_(\d+)\.so$/) {
    if ($1 > $maj || (\\$1 == $maj && \$2 > $min)) {
      $maj = $1;
      $min = $2;
    }
  }
}
print $maj,"_",$min