“简单数学语法”到MathML转换器

珀尔有 Text::ASCIIMathML 工作得很好。

改编自Synopsys部分:

#!/usr/bin/perl

use strict;
use warning;
use Text::ASCIIMathML;

my $parser = Text::ASCIIMathML->new;

my $ASCIIMathML = "int_0^1 e^x dx";

print $parser->TextToMathML($ASCIIMathML);

给出(为易读性重新格式化):

<math>
  <mstyle>
    <mrow><msubsup><mo>&#x222B;</mo><mn>0</mn><mn>1</mn></msubsup></mrow>
    <msup><mi>e</mi><mi>x</mi></msup>
    <mrow><mi>d</mi><mi>x</mi></mrow>
  </mstyle>
</math>