1 2if ($#ARGV < 1) { 3 print "Usage: version.pl VER FILE {FILE, FILE}\n"; 4 exit; 5} 6 7$V=$ARGV[0]; 8print "VER:'${V}'\r\n"; 9shift(@ARGV); 10 11sub replace () { 12 my $filename = $_[0]; 13 14 if(-s $filename) { 15 print "Processing [" . $filename . "]\r\n"; 16 17 my $original = "$filename.original"; 18 19 rename($filename, $original); 20 open(OUT, ">$filename"); 21 open(IN, "$original"); 22 23 my $hitCount=0; 24 while(<IN>) { 25 if($hitCount == 0 && /<version>.*<\/version>/) { 26 s/<version>.*<\/version>/<version>${V}<\/version>/; 27 $hitCount++; 28 } 29 print OUT; 30 } 31 close(IN); 32 close(OUT); 33 unlink($original); 34 } else { 35 print "File [" . $filename . "] does not exist\r\n" 36 } 37} 38 39foreach $ARG (@ARGV) { 40 do replace($ARG); 41} 42 43 44 45