코퍼스의 블로그

RFC 문서 등을 보면 ascii로 만들어진 그림이나 테이블 맵 등을 자주 접하게 된다.

이런 아스키 그림이나 테이블 등을 쉽게 다루어주는 유틸등이 있기도 하고. 혹은 워드등에서 만든 뒤 변환하여
카피하여 쓰기도 한다.

나두 가끔은 이메일로 내용을 주고 받을 때, 아스키로 그림을 그릴 때가 있는데..
(회사 정책상.. 첨부 파일을 보낼려면 결제라인을 밟아야 되는데.. 박스 2~3개랑 선 몇 개 그려넣자고..
그 짓 까지 하기는..ㅠㅠ)

이럴때마다.. '다음에 내가 꼭 이거 쉽게 만드는 ascii draw 용 스크립트 하나 짠다'
이렇게 마음만 먹고 실행을 못옮기고 있었는데..
오늘 search.cpan.org 의 recent module 란을 보니 굉장히 깔끔한 모듈이 눈에 띄어 소개한다.

음.. 내가 원한 궁국의 ascii draw tool 까지는 아니지만 ascii table에 대해서만큼은 깔끔하게 만들어준다.
사용하기도 쉽고, 알아두면 가끔 참으로 요긴하게 쓰일 것 같다.

프로그래머라면 예제면 충분하리라 생각된다.^^
아래는 CPAN 사이트의 example..라며 보여드릴려고 했는데.. copy & past할려고 했더니.. 줄이 깨지네..--;
귀찮다..
간단히 링크로..
http://search.cpan.org/~sri/Text-SimpleTable-1.3/lib/Text/SimpleTable.pm

그래도..좀 허전하니.. 내가 짠 예제를..^^

#!/usr/bin/perl
use strict;
use warnings;

use Text::SimpleTable;

my $t = Text::SimpleTable->new( [8, 'Country'], [9, 'Language'] );

$t->row('한국', '한국어');
$t->hr;
$t->row('America', 'English');

print $t->draw;

실행 결과는 아래..
(실제로 줄이나 칸은 잘 들어맞는다. 아래 화면은 copy & past 하면서 오차가 발생한 것이다.
일반 텍스트 에디터 등에 붙여서 쓰거나. 텍스트 파일로 저장할 때는 문제가 없다)

.----------+----------- .
| Country | Language |
+----------+-----------+
| 한국 | 한국어 |
+----------+-----------+
| America | English |
'---------- +-----------'