====== Win32::Console::ANSI ======

===== Introduction =====

  - Windows NT/2000/XP/Vista 는 Win32 Console 에서 ANSI 를 지원하지 않습니다.
  - 이전 MS-DOS 시절의 command.com 에서만 지원됩니다. cmd.exe 는 지원되지 않습니다.
  - Win32::Console::ANSI 설치를 통해 cmd.exe 에서도 color 를 마음대로 표현할 수 있습니다.

===== Colors rendition =====

{{:develop:perl:module:ansi_colors.png|}}

===== Characters conversion =====

{{:develop:perl:module:ansi_char.png|}}

===== Extra escape sequence =====
{{:develop:perl:module:ansi_codepage.png|}}

===== Download & Install =====
  - Current version is 1.04 
  - Download & Installation <code>
ppm install http://www.bribes.org/perl/ppm/Win32-Console-ANSI.ppd 
ppm install http://www.adminschool.net/perl/ppm/Win32-Console-ANSI.ppd 
</code>
  - Source file : [[http://www.bribes.org/perl/Win32-Console-ANSI-1.04.tar.gz | Win32-Console-ANSI-1.04.tar.gz ]]

===== Sample Code =====

  * 모듈이 설치되었다면 아래의 샘플코드를 돌려보라! <code perl>
#!/usr/bin/perl                            -w -w -w -w -w
eval{     require                        Win32::Console::ANSI;
};sub      ::{printf                  @_ } sub            sub{
rand          39/999}               sub O123                 {::
""            ."\e[%d"            .";%dH%s"                  ,@_
;};               sub l234      {O123 $|=                    1
,1,                 "\e[J"}   while(1)                      {
$c                    or do {::"\e[1"                    ."".
 ""                    .";%dm", 30+                     rand
  7 ;                  l234;$u=&sub                  ;$v =
   &sub                ;$ c= 3999                 ;$b=qw
    /19 9            1/[int rand 3             ]};O123
     11*sin(      $v* $c)+    13,39*cos   ($u*$c)+41,
       qw+J A P H+[$c%4]        ;($a++%$b)or$c--;}
</code>

===== Links =====
  - [원문] http://www.bribes.org/perl/wANSIConsole.html
  - http://www.bribes.org/perl/ansi.html 개념 및 예제소스