You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
740 B
43 lines
740 B
|
|
if ($#ARGV < 1) {
|
|
print "Usage: binderVersion.pl VER FILE {FILE, FILE}\n";
|
|
exit;
|
|
}
|
|
|
|
$V= $ARGV[0];
|
|
# Trim -SNAPSHOT
|
|
$V =~ s/-SNAPSHOT//;
|
|
|
|
print "VER:${V}\r\n";
|
|
shift(@ARGV);
|
|
|
|
sub replace () {
|
|
my $filename = $_[0];
|
|
|
|
if(-s $filename) {
|
|
print "Processing [" . $filename . "]\r\n";
|
|
|
|
my $original = "$filename.original";
|
|
|
|
rename($filename, $original);
|
|
open(OUT, ">$filename");
|
|
open(IN, "$original");
|
|
|
|
while(<IN>) {
|
|
if(/VERSION\s+=\s+".*";/) {
|
|
s/VERSION\s+=\s+".*";/VERSION = "${V}";/;
|
|
}
|
|
print OUT;
|
|
}
|
|
close(IN);
|
|
close(OUT);
|
|
unlink($original);
|
|
} else {
|
|
print "File [" . $filename . "] does not exist\r\n"
|
|
}
|
|
}
|
|
|
|
foreach $ARG (@ARGV) {
|
|
do replace($ARG);
|
|
}
|