mirror of
https://github.com/tbsdtv/media_build.git
synced 2025-07-23 04:13:02 +02:00
36 lines
749 B
Perl
Executable File
36 lines
749 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
|
|
my $debug=0;
|
|
my $from;
|
|
my $to;
|
|
my $sed;
|
|
|
|
while (<>) {
|
|
$from = $1 if (/^rename from (.*)/);
|
|
$to = $1 if (/^rename to (.*)/);
|
|
|
|
if ($from && $to) {
|
|
printf "$from -> $to\n" if ($debug);
|
|
$from =~ s/\./\\./g;
|
|
$to =~ s/\./\\./g;
|
|
$sed .= "\t-e 's,$from,$to,g' \\\n";
|
|
$from = 0;
|
|
$to = 0;
|
|
}
|
|
}
|
|
|
|
$sed =~ s/\s*\|\s* \\\s*$//;
|
|
$sed =~ s/^\s*//;
|
|
|
|
open OUT, ">rename_patch.sh";
|
|
print OUT "#!/bin/bash\n\n";
|
|
print OUT "if [ \"\$1\" == \"\" ]; then echo \"usage: $0 <in_patch>\"; exit -1; fi\n\n";
|
|
print OUT "OLD=\"\$1.old\"\n";
|
|
print OUT "mv \$1 \$OLD && ";
|
|
print OUT "cat \$OLD | sed $sed >\$1 && \\\n";
|
|
print OUT "echo -e \"old patch stored as \"\$OLD\"\\n\$1 rewrote.\"\n";
|
|
close OUT;
|
|
|
|
chmod(0755, "rename_patch.sh");
|