findversion.pl

   1 #!/usr/bin/perl
   2
   3 while(<>)
   4   {
   5   # Look for the first pattern that looks like a version. This must be
   6   # the most recent version.
   7   if(/Version\s(\d+\.\d+(?:\.\d+))/)
   8     {
   9     print $1;
  10     exit(0);
  11     }
  12   }
  13
  14 exit(1);