====== Perl CGI ======

===== Encoding =====
  * Header 안에 charset 정보를 넣어준다.
  <code>
print $q->header(-charset => 'utf-8');
</code>



===== Oracle Query Korean Encoding =====
  * Perl CGI에서 Oracle 환경설정을 해주지 않으면 한글이 제대로 나오지 않을 수 있다.<code>
#!/usr/bin/perl -w
#
# starlits@adminschool.net
# Thu May 31 17:39:00 KST 2007
#

#use CGI;
use CGI(-nosticky);

$ENV{"ORACLE_HOME"} = "/home/oracle/product/10gR2";
$ENV{"NLS_LANG"} = "AMERICAN_AMERICA.KO16MSWIN949";
$ENV{"LD_LIBRARY_PATH"} = "$ORACLE_HOME/lib:$ORACLE_HOME/jdbc/lib";
$ENV{"CLASSPATH"} = "$ORACLE_HOME/DB_1/lib/classgen.jar:$ORACLE_HOME/jdbc/lib";
</code>