== 소개 ==
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);
}}}

3. DB에서 데이터 가져오기
Perl의 DBI module을 사용하여 PSTricks를 통해 Graph를 그릴때
필요한 입력 data 파일을 생성한다.
{{{
#! /usr/bin/perl -w
# connect.pl - connect to the MySQL server

use strict;
use DBI;
my $dsn = "DBI:mysql:host=localhost;database=perltexdb";

my $mysqldbh = DBI->connect ($dsn, "ptuser", "ptpass")
    or die "Cannot connect to server\n";

my $mysqlsth= $mysqldbh->prepare(
    "SELECT num, value FROM perfdata"
);

open(DATAFH, ">perfdata.dat");
$mysqlsth->execute();

my $count = 0;
while (my @val = $mysqlsth->fetchrow_array ())
{
    print DATAFH "$val[0]\t$val[1]\n";
    ++$count;
}

$mysqlsth->finish();
print "$count rows were returned\n";
}}}

=== 질문 ===
안녕하십니까? perl로 tex를 할 수 있다니 매우 좋아보입니다. 제가 일전에 ktug의 practical use를 정리해 볼려고 perl를 이용해서 parctical use부분을 down받아 본적이 있습니다. 그때는 한참 더 해보려고 했는데, 그만 시간과 능력이 딸려서 못하고 말았습니다. 그렇다면, 가령 다음과 같은 것도 가능한지요?

perl를 이용해서 위의 KtugWiki page를 down받고(title page에서 wikipage name를 받고 난후에 각각의 Pagename별로 위의 내용을 down받는다) 난후에 이 내용을 perl를 이용해서(wiki문법을 tex로 바꾸는데 perl를 이용해야 할 것 같습니다) tex로 바꿀수 있을까요? 어찌보면 그냥 perl로 다 할 수도 있을 일 같이도 생각은 듭니다만......

그런다고 해서 제가 wikipage를 down받아서 어찌 해 보겠다는 말은 아닙니다. 그래도 앞으로 점점더 wikipage가 많아지면, 언제가는 누군가에 의해서 이런한 일이 되어져야 하지 않을까? 생각해서 그냥 한번 생각나는데로 적어 보았습니다. wiki도 좋지만, 아무래도 제 나이(?)에는 그냥 책으로 한권 가지고 있는 것도 좋습니다. 

여기에 이런 내용이 어울리지 않으면 지우셔도 관계없습니다. --[synapse]