mirror of
https://github.com/nitraiolo/CfgUSBLoader.git
synced 2024-11-27 13:44:17 +01:00
41 lines
629 B
Perl
41 lines
629 B
Perl
#!/usr/bin/perl
|
|
|
|
#print scalar(@ARGV), ":", @ARGV, "\n";
|
|
|
|
if (scalar(@ARGV) != 3) {
|
|
print "Usage: $0 msgid_text search replace\n";
|
|
exit;
|
|
}
|
|
|
|
$msgid = $ARGV[0];
|
|
$search = $ARGV[1];
|
|
$replace = $ARGV[2];
|
|
shift @ARGV;
|
|
shift @ARGV;
|
|
shift @ARGV;
|
|
|
|
while (<>) {
|
|
if (/^msgid/) {
|
|
#print "MSGID: $_";
|
|
$read_id = $_;
|
|
while (<>) {
|
|
if (/^msgstr/) { last; }
|
|
$read_id .= $_;
|
|
}
|
|
# msgstr
|
|
$read_str = $_;
|
|
while (<>) {
|
|
if (!/^"/) { last; }
|
|
$read_str .= $_;
|
|
}
|
|
if ($read_id =~ /$msgid/) {
|
|
$read_id =~ s/$search/$replace/g;
|
|
$read_str =~ s/$search/$replace/g;
|
|
}
|
|
print $read_id;
|
|
print $read_str;
|
|
}
|
|
print;
|
|
}
|
|
|