목차

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

\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.pl --latex=lambda --nosafe test.tex

#! /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 connect.pl
10 rows were returned
$ cat perfdata.dat
1       10.21
2       20.22
3       30.23
4       40.24
5       50.25
6       52.24
7       30.23
8       20.22
9       10.21
10      8.18

\documentclass[12pt]{report}
\usepackage{pst-plot}
\usepackage{perltex}

\perlnewcommand{\findmax}[1]{
    #! /usr/bin/perl -w
    use strict;
    open(PERFD, "<$_[0]");
    my ($maxday,$maxval) = (0,0);
    while(<PERFD>) {
        my ($day, $val) = split /\s+/, $_;
        if ($maxday == 0){
        ($maxday,$maxval) = ($day,$val);
        }
        if ($val > $maxval) {
            ($maxday,$maxval) = ($day,$val);
        }
    }
    $maxval= sprintf("%.2f",$maxval);
    my $returnstr="($maxday, $maxval)";
    return "\\rput(2,-2.7){MAX: $returnstr}";
}

\perlnewcommand{\findavg}[1]{
    #! /usr/bin/perl -w
    use strict;
    open(PERFD, "<$_[0]");

    my $numofdata=0;

    my $average=0;
    while(<PERFD>) {
        ++$numofdata;
        my ($day, $val) = split /\s+/, $_;
        $average += $val;
    }
    $average = $average / $numofdata;
    $average= sprintf("%.2f",$average);
    return "\\rput(7,-2.7){AVG: $average}";
}

\begin{document}

\pagestyle{empty}

\newcommand{\DFILE}{./perfdata.dat}

\readdata{\DATA}{./perfdata.dat}
\psset{xunit=1,yunit=0.8}
\begin{pspicture}(0,-2)(12,7)
    \psset{showpoints=true,dotsize=0.1,plotstyle=line,linewidth=1pt}
    \rput(0,7){Value}
    \rput(11.7,0){Num}
    \rput(5,-1.5){\bf{Example for perlTeX}}
    \listplot[plotstyle=line,yunit=0.08cm,dotscale=2,linecolor=green]{\DATA}
    \psaxes[dy=0.8cm,Dy=10,Dx=1]{->}(0,0)(11.10,6.5)
    \findmax{\DFILE}    % <--- \rput(3,-2.7){MAX: 최대값} 을 출력
    \findavg{\DFILE}    % <--- \rput(7,-2.7){AVG: 평균값} 을 출력
\end{pspicture}

\end{document}