== 소개 ==
CTAN:macros/latex/contrib/perltex/

Perl 코드를 가지고 LaTeX 매크로를 정의해 써먹는 재미있는 패키지이다. Perl 매크로가 LaTeX 매크로로 되는 것이다. 이로써 LaTeX의 조판 능력과 Perl의 프로그래밍 능력을 결합할 수 있게 된다.

== 사용법 ==
프리앰블에 `\usepackage{perltex}`라고 선언한다. 이제 `\perlnewcommand`, `\perlrenewcommand`, `\perlnewenvironment`, `\perlrenewenvironment`의 네가지 명령을 이용할 수 있다.

문서컴파일은 `perltex.pl`이라는 스크립트를 사용한다. 옵션은 다음과 같다.
{{{
--latex=program
        기본값인 latex 대신 다른 실행명령(예:pdflatex)을 줄 수 있다.
--nosafe
        기본값으로 위험한 Perl코드(예: 파일삭제)가 실행되지 않도록 되어 있는데
        이 옵션은 안전장치를 풀어준다. 모든 Perl 코드가 그대로 실행된다.
--permit=feature
        특정 Perl코드만을 안전장치로부터 해제한다. 여러번 옵션을 줄 수 있다.
}}}

== 보기1: 한글 Sorting 예제 ==
TeX으로는 문자열을 소팅하는 코드를 짜기가 쉽지않다. PerlTeX에게 이런 것은 식은 죽 먹기보다 쉽다.

test.tex:
{{{
\documentclass[a4paper]{article}
\usepackage{perltex}
\usepackage{dhhangul}
\perlnewcommand{\sortarg}[1]{join ',', sort split ',', $_[0]}
\newcommand{\teststring}{한글,가나다,우리나라,대한민국}
\begin{document}
\begin{center}
\teststring\\
$\Downarrow$\\
\sortarg{\teststring}
\end{center}
\end{document}
}}}
 PerlTeX은 TeX 매크로를 만나면 이를 확장(expand)한 후 Perl로 처리한다. 확장을 못하게 하려면 `\noexpand`를 TeX 매크로 앞에 붙이면 된다.

컴파일:
{{{
$ perltex.pl --latex=lambda --nosafe test.tex
}}}

그 결과: 
Uploads:perltexsortexample.png

 와~ 보기만 해도 신납니다. :D --[Progress]

== 보기2: DB와 연동한 List Plot 그리기 ==
본 예제는 DB(MySQL)에 저장되어 있는 수치 데이터를 Perl로 추출하여 이를 PSTricks를
이용하여 List plot을 그리는 예제이다. 여기서 우리가 원하는 것은 List plot에서 전체 평균과 최대값,
최소값을 perl로 산출하여 이를 바로 TeX으로 출력하는 기능을 주는 것이다.
여기 예제는 Linux에서 사용하는 것을 가정하고 test하였으나 Windows에서도 사용가능하리라
생각된다. 

=== DB에서 관련 데이터 추출하기 ===
본 예제를 따라 할 수 있도록 DB 생성에서 데이터 입력 그리고 추출까지를 보이기로 하겠다.
일단, localhost에 MySQL이 설치 되어 있다고 가정하고, 
1. DB 접속 및 유저 생성
{{{
% mysql -h localhost -p -u root
Enter password: *****
mysql> GRANT ALL ON perltexdb.* TO 'ptuser'@'localhost' IDENTIFIED BY 'ptpass';
Query OK, 0 rows affected (0.09 sec)
mysql> CREATE DATABASE perltexdb;
Query OK, 1 row affected (0.08 sec)
mysql> quit
}}}
2. Table 생성 및 데이터 입력
{{{
% mysql -h localhost -p -u ptuser
Enter password: ptpass
mysql> USE perltexdb;
mysql> CREATE TABLE perfdata (num INT, value FLOAT);
mysql> INSERT INTO perfdata (num,value) VALUES(1, 10.21);
mysql> INSERT INTO perfdata (num,value) VALUES(2, 20.22);
mysql> INSERT INTO perfdata (num,value) VALUES(3, 30.23);
mysql> INSERT INTO perfdata (num,value) VALUES(4, 40.24);
mysql> INSERT INTO perfdata (num,value) VALUES(5, 50.25);
mysql> INSERT INTO perfdata (num,value) VALUES(6, 52.24);
mysql> INSERT INTO perfdata (num,value) VALUES(7, 30.23);
mysql> INSERT INTO perfdata (num,value) VALUES(8, 20.22);
mysql> INSERT INTO perfdata (num,value) VALUES(9, 10.21);
mysql> INSERT INTO perfdata (num,value) VALUES(10, 8.18);
}}}

'''아직 구성 중입니다. 죄송합니다. !!! '''