Encode/decode perl utf-8 strings into tex
use TeX::Encode;
use Encode;
$tex = encode('latex', "This will encode an e-acute (".chr(0xe9).") as \'e");
$str = decode('latex', $tex); # Will decode the \'e too!
This module provides encoding to LaTeX escapes from utf8 using mapping tables in Pod::LaTeX and HTML::Entities. This covers only a subset of the Unicode character table (undef warnings will occur for non-mapped chars). This module is intentionally vague about what it will handle, see Caveats below.
Mileage will vary when decoding (converting TeX to utf8), as TeX is in essence a programming language, and this module does not implement TeX.
I use this module to encode author names in BibTeX and to do a rough job at presenting LaTeX abstracts in \s-1HTML\s0. Using decode rather than seeing $\sqrt{\Omega^2\zeta_n}$ you get something that looks like the formula.
The next logical step for this module is to integrate some level of TeX grammar to improve the decoding, in particular to handle fractions and font changes (which should probably be dropped).
Encodes a utf8 string into TeX. \s-1CHECK\s0 isn't implemented.
Decodes a TeX string into utf8. \s-1CHECK\s0 isn't implemented.
Returns 0. PerlIO isn't implemented.
Proper Encode checking is not implemented.
LaTeX comments (% ...) are ignored because chopping a lot of text may not be what you actually want.
Converts non-ASCII Unicode characters to their equivalent TeX symbols (unTeXable characters will result in undef warnings).
Attempts to convert TeX symbols (e.g. \ae) to Unicode characters. As an experimental feature this also handles Math-mode TeX by inserting \s-1HTML\s0 into the resulting string (so you end up with an \s-1HTML\s0 approximation of the maths - \s-1NOT\s0 MathML).
Encode::Encoding, Pod::LaTeX, Encode
Timothy D Brody, <[email protected]>
Copyright (C) 2005-2007 by Timothy D Brody
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or, at your option, any later version of Perl 5 you may have available.