develop:perl:module:win32_console_ansi

차이

문서의 선택한 두 판 사이의 차이를 보여줍니다.

차이 보기로 링크

--- develop:perl:module:win32_console_ansi [2009/07/15 09:27] – starlits
+++ develop:perl:module:win32_console_ansi [2025/10/03 22:30] (현재) – 바깥 편집 127.0.0.1
@@ 줄 5: / 줄 5: @@
   - Windows NT/2000/XP/Vista 는 Win32 Console 에서 ANSI 를 지원하지 않습니다.
   - 이전 MS-DOS 시절의 command.com 에서만 지원됩니다. cmd.exe 는 지원되지 않습니다.
+  - Win32::Console::ANSI 설치를 통해 cmd.exe 에서도 color 를 마음대로 표현할 수 있습니다.
 ===== Colors rendition =====
@@ 줄 25: / 줄 25: @@
 </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
+;                  l234;$u=&sub                  ;$v =
+   &sub                ;$ c= 3999                 ;$b=qw
+    /19 9            1/[int rand 3             ]};O123
+*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 개념 및 예제소스

develop/perl/module/win32_console_ansi.1247617676.txt.gz · 마지막으로 수정됨: 2025/10/03 22:30 (바깥 편집)