25 lines
412 B
Perl
Executable File
25 lines
412 B
Perl
Executable File
open INFILE, "<$ARGV[1]";
|
|
$build = <INFILE>;
|
|
close INFILE;
|
|
chop $build;
|
|
open INFILE, "<$ARGV[0]" || die;
|
|
open OUTFILE, ">$ARGV[0].old" || die;
|
|
|
|
while (<INFILE>) {
|
|
|
|
$id = $_;
|
|
if ($id =~ "Build ID:") {
|
|
$temp = "Build ID: " . $build;
|
|
$id =~ s/Build ID:\s\d+/$temp/;
|
|
print OUTFILE $id;
|
|
}
|
|
else {
|
|
print OUTFILE $_;
|
|
}
|
|
}
|
|
|
|
close INFILE;
|
|
close OUTFILE;
|
|
|
|
rename "$ARGV[0].old", "$ARGV[0]";
|