summaryrefslogtreecommitdiff
path: root/support/dosepsbin/clean-case.pl
blob: fe72e184d0233a966016f501ae53688454e5d516 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/env perl
use strict;
$^W=1;

@ARGV == 2 or die "!!! Syntax: <input file> <output file>\n";

my $infile = $ARGV[0];
my $outfile = $ARGV[1];

open(IN, '<', $infile) or die "!!! Error: Cannot open `$infile'!\n";
open(OUT, '>', $outfile) or die "!!! Error: Cannot write `$outfile'!\n";
while (<IN>) {
    s/^(=head[1] [A-Z])(.*)/$1\L$2\E/;
    s/(L<"[A-Z])([^"]+)">/$1\L$2\E">/g;
    print OUT;
}
close(IN);
close(OUT);

__END__