1#!/usr/local/bin/perl 2# Public domain 3 4my $found = 0; 5open(CONFIG, "configure.in") || die "configure.in: $!"; 6foreach $_ (<CONFIG>) { 7 chop; 8 if (/^\s*VERSION\(\s*\"([\w+\.\-]+)\"\s*\)\s*$/) { 9 print $1; 10 if (@ARGV == 0 || $ARGV[0] != '-n') { 11 print "\n"; 12 } 13 $found++; 14 } 15} 16close(CONFIG); 17die 'cannot get version' unless ($found); 18 19