10 lines
219 B
Perl
Executable File
10 lines
219 B
Perl
Executable File
#! /usr/bin/perl
|
|
my $texvc = `texvc '\\sin(x)+{}{}\\cos(x)^2 newcommand'`;
|
|
if (substr($result,0,1) eq "+") {
|
|
print "good";
|
|
} else {
|
|
print "bad";
|
|
}
|
|
print $result;
|
|
my $ = `tex2svg '\\sin(x)+{}{}\\cos(x)^2 newcommand'`;
|