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.
37 lines
662 B
37 lines
662 B
15 years ago
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
my $group = '';
|
||
|
|
my $key = '';
|
||
|
|
my $value = '';
|
||
|
|
|
||
|
|
while (<>) {
|
||
|
|
if (/^\s.*$/) { next }
|
||
|
|
if (/^\s*#.*$/) { next }
|
||
|
|
if (/\[(.*)\]/) {
|
||
|
|
$group = $1;
|
||
|
|
} elsif (/^(.*)=(.*)$/) {
|
||
|
|
$key = $1;
|
||
|
|
$value = $2;
|
||
|
|
} else { next }
|
||
|
|
|
||
|
|
if (!$group || !$key) { next }
|
||
|
|
|
||
|
|
if ( $group eq 'General' ) {
|
||
|
|
if ( $key eq 'Palette' ) {
|
||
|
|
if ($value eq 'color') {
|
||
|
|
print "Palette=Color\n";
|
||
|
|
} elsif ($value eq 'monochrome') {
|
||
|
|
print "Palette=Monochrome\n";
|
||
|
|
} elsif ($value eq 'grayscale') {
|
||
|
|
print "Palette=Grayscale\n";
|
||
|
|
} else {
|
||
|
|
print "Palette=Color\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( $key eq 'Interpreter' ) {
|
||
|
|
print "# DELETE [General]Interpreter\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|