== 소개 ==
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 또는 MSSQL)에 저장되어 있는 수치 데이터를 Perl로 추출하여 이를 PSTricks를
이용하여 List plot을 그리는 예제이다. 여기서 우리가 원하는 것은 List plot에서 전체 평균과 최대값,
최소값을 perl로 산출하여 이를 바로 TeX으로 출력하는 기능을 주는 것이다.
여기 예제는 Linux에서 사용하는 것을 가정하고 test하였으나 Windows에서도 사용가능하리라
생각된다. 

=== DB에서 관련 데이터 추출하기 ===
본 예제는 DB에 각 서버의 매달 성능 데이터가 저장 되어 있고 이를 가져오는
예제이다. 

1. MySQL 사용시
{{{

#! /usr/bin/perl -w
# connect.pl - connect to the MySQL server

use strict;
use DBI;

# 여기
선 localhost의 perf_best1이라는 MySQL DB에 접속한다고
# 가정하였다.
my $dsn = "DBI:mysql:host=localhost;database=perf_best1";

# 여기서
# mysqluser는 MySQL의 사용자 유저
# mysqlpasswd 는 MySQL의 password 이다. (자기 환경에 따라 바꾸길 바란다.)
my $mysqldbh = DBI->connect ($dsn, "mysqluser", "mysqlpasswd")
    or die "Cannot connect to server\n";

# 10월의 데이터를 원하며
my $month='10';

# server-A라는 hostname을 가지는 서버에 대한 자료를 원할 경우
my @hostnames = ('server-A');

# BMC의 Best1 이라는 제품을 사용한 예제로
# test 해 볼 경우는 아래와 같은 format을 가지는 적당한 SQL 문으로 시험하면
# 될 것이다.
#  날짜     일일평균값       일일최대값       일일최소값  
#   01        30                    50                  10
#   02        40                    70                  20 
#   ...        ...                    ...                  ...
#
my $mysqlsth= $mysqldbh->prepare(
    "SELECT SUBSTRING(C.Int_start_date,7,8), AVG(CPU_UTIL), MAX(CPU_UTIL), MIN(CPU_UTIL)
    FROM CAXNODE A,
    CAXNODED B,
    CAXINTVL C
    WHERE A.INDEXX=B.SYSTEMS AND B.INTVL=C.INDEXX AND
    C.INTTYPE=? AND (A.NODE_ALIAS=?) AND B.CPU_UTIL>=0 AND
    Int_start_date LIKE ?
    GROUP BY C.Int_start_date
    ORDER BY C.Int_start_date"
);

foreach my $hostname (@hostnames) {

    open(AVGFH, ">cpu_avg_" . "$hostname". "_" . $month . ".dat");
    open(MAXFH, ">cpu_max_" . "$hostname". "_" . $month . ".dat");
    open(MINFH, ">cpu_min_" . "$hostname". "_" . $month . ".dat");

# 위의 SQL문에서 ?로 된 값들이 순서데로 'M',   $hostname,     '04/' .$month . '/%'
# 로 대체 된다.
# '04/' .$month . '/%' 는 '04/10/%' 와 같이 될 것이다. ( . 는 문자열 연결 operator)
    $mysqlsth->execute('M', $hostname, '04/' .$month . '/%');
    my $count = 0;
    while (my @val = $mysqlsth->fetchrow_array ())
    {
        my $day = $val[0];
        my $avg = $val[1];
        my $max = $val[2];
        my $min = $val[3];

        print AVGFH "$val[0]\t$avg\n";
        print MAXFH "$val[0]\t$max\n";
        print MINFH "$val[0]\t$min\n";
        ++$count;
    }
    $mysqlsth->finish();
    print "$count rows were returned\n"
}

}}}