如何修复 TeXT 字符串中不匹配的括号？

Question

例如，我有很多 Tex 字符串，例如

|u(x,t)|^2 = \frac{1}{\sqrt{1+(4+t)^2))e^{-\frac{2(x-k_0t)^2}{1+4t^2))

上面Tex的问题是括号不匹配。 \frac{1}{\sqrt{1+(4+t)^2)) 应该是 \frac{1}{\sqrt{1+(4+t)^2}} 和 {-\frac{2(x-k_0t)^2}{1+4t^2)) 应该是 {-\frac{2(x-k_0t)^2}{1+4t^2}}

wrong: \frac{1}{\sqrt{1+(4+t)^2))
right: \frac{1}{\sqrt{1+(4+t)^2}}

wrong: {-\frac{2(x-k_0t)^2}{1+4t^2))
right: {-\frac{2(x-k_0t)^2}{1+4t^2}}

说明：第一个例子不对，因为后面两个)没有)匹配，应该是}匹配前面的{

我想知道如何自动纠正这种不匹配的括号？我已经安装了 perl，我打算用正则表达式来做，但想不出办法。

Answer 1

我不知道我对你的理解是否正确，但听起来你需要数括号并确保( or [ or { 的数量等于对应的) or ] or } 的数量。

一种可能的解决方案是对 TeX 的每一行使用哈希并在其中存储值（不确定文件的外观。我假设所有行都像您提供的那样）：

#!/usr/bin/perl
use strict;
use warnings;

my $file = shift;
my $line_num = 0;
open FH, "<$file" or die "Error: $!\n";
while(<FH>) {
    my %brackets = (
        '('     =>      0,
        '['     =>      0,
        '{'     =>      0
    );
    $line_num++;
    my @chars = split //, $_;
    ### Count brackets.
    foreach my $char (@chars) {
        if ($char eq '(' or $char eq '[' or $char eq '{') {
            $brackets{$char}++;
        } elsif ($char eq ')' or $char eq ']' or $char eq '}') {
            if ($char eq ')') { $brackets{'('}--; }
            if ($char eq ']') { $brackets{'['}--; }
            if ($char eq '}') { $brackets{'{'}--; }
        } else {
            next;
        }
    }
    ### Check that all hash values are 0.
    foreach my $bracket (keys %brackets) {
        if ($brackets{$bracket} != 0) {
            print "In line $line_num: '$bracket'    missing $brackets{$bracket} closing brackets.\n";
        }
    }
}

此代码至少会告诉您错误发生的位置，并让您大致了解这些错误的性质。对于)ff){gfs[[y[46rw] 等输入，输出将是：

In line 1: '{'  missing 1 closing brackets.
In line 1: '['  missing 2 closing brackets.
In line 1: '('  missing -2 closing brackets.

您可以编写简单的代码来解决此问题，而不是打印括号（或存储括号的数量。可能更好地存储括号的索引），因为此时，您将拥有所需的所有信息。

如果文件中的错误没有模式，这不是一个简单的问题。我建议在实际尝试之前先寻找一个

Answer 2

必须有某种条件，它指示使用括号而不是大括号的位置。我假设它要么在e^ 前面，要么在行尾。

这修复了第一个问题：

perl -pi~ -e 's/\)\)e\^/}}e^/' file.tex

这是第二个：

perl -pi~ -e 's/\)\)$/}}/' file.tex