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__
|
