File: clean-case.pl

package info (click to toggle)
texlive-extra 2022.20230122-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 4,466,588 kB
  • sloc: perl: 398,710; xml: 35,871; python: 29,125; cs: 25,850; sh: 17,610; makefile: 17,304; ansic: 15,490; java: 12,811; javascript: 9,898; lisp: 1,755; csh: 1,129; ruby: 1,072; awk: 151; tcl: 142; pascal: 138; cpp: 41; sed: 36; haskell: 5
file content (20 lines) | stat: -rw-r--r-- 436 bytes parent folder | download | duplicates (18) 
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__