나의 스크립트 언어 이야기

친구와 스크립트 언어에 대한 얘기들을 나눴는데, 느낌이 와 닿아서, 충동적으로 글을 쓰게 되었습니다. 스크립트 언어라는 것에 대해서 소개합니다. 그리고 제 자신의 스크립트 언어에 대한 비하인드 스토리를 공개합니다.

예전에는 언어는 두 가지로 나누어져 있었습니다. 컴파일 언어와 인터프리터 언어로 말이죠. 컴파일 언어는 대부분 시스템을 건드릴 수 있는 저수준까지 내려갈 수 있고, 인터프리터 언어는 그렇지 않고 속도도 훨씬 느리죠.

그러나 이런 구분이 이제는 조금 모호해졌습니다. 스크립트 언어로도 얼마든지 운영체제에서 제공하는 수준에 접근할 수가 있게 되었죠. bash와 펄이 대표적으로 그런 언어였습니다. 점점 다른 언어들과의 교환 메커니즘이 발달하게 되고 이제는 스크립트 언어들이 풀언어(서로 다른 언어로 개발된 프로그램들을 이어 붙여주는 프로그램)로써 자주 활용되기도 합니다.

제가 본격적으로 스크립트 언어를 다루게 된 발단은 학부 2학년 때로 거슬러 올라갑니다. 그 당시 저는 수동으로 html을 대충 쳐서 만든 홈페이지를 만들었고, 여기에 제가 해야 될 일들의 목록을 적어 놓았습니다. 물론 홈페이지 내에서 쉽게 이것을 추가하거나 삭제할 수 있는 것이 아닌 바보같은 홈페이지였죠. 제가 그 당시 한 일은 이 html에서 grep 명령을 이용하여 할일 목록의 내용만을 추출한 것이었습니다. 그래서 학교 리눅스 시스템을 터미널로 접속하면 시작하자마자 날짜별로 해야 될 일의 목록이 터미널에 출력되고 저에게 압박을 가하는 일이었습니다.

그 이후에 나라의 부름을 받고 업무를 보게 되었는데, 저는 마음대로 컴파일러를 설치할 수 없었습니다. 물론 업무 내용상 관리자 권한이 주어지는 행운아였지만, 감시가 심한 상사는 컴퓨터들을 모니터링합니다. cmd.exe만 실행하여 검은 화면만 떠도 해킹으로 의심을 하는 상황이니까요.(결국 커맨드 창 배경화면을 흰색으로 바꾸니까 메모장처럼 보여서 의심을 안 받더군요.) 결국 일과 시간이 끝나고 나면, 메모장에 적힌 소스를 보면서 두뇌로 컴파일 하는 수 밖에 없었는데 할 수 있는 좋은 일을 찾은 것입니다.

그 당시 하는 업무는 매우 비효율적이었습니다. 손님이 오시면 MS 워드 문서에 있는 계약서 양식에 손님의 수많은 개인정보를 적습니다. 개인 정보 종류가 꽤나 많습니다. 그리고 나서, 다른 소프트웨어를 이용하여 서비스 요청 문서를 만듭니다. 똑같은 정보를 한번 더 입력합니다. 그리고 나서 인쇄해서 문서를 파일에 넣고, 이것을 전산환경으로 찾아볼 수 있게 하기 위하여 MS Access 데이터베이스에 똑같은 내용의 정보를 다시 다 입력해 넣습니다. 그 뒤에, 종이로 만들어진 일지 표에 똑같은 내용의 정보를 손으로 다 써 넣습니다. 개인정보 항목이 적으면 문제가 없겠지만 상당히 많습니다. 경우에 따라서는 한 두 곳에는 정보가 들어가지 않아서 데이터의 일관성을 해치기도 했습니다.

네, 그렇습니다. MS 오피스 제품군은 VB 스크립트라는 언어로 제어할 수 있습니다. MS Access는 덤으로 SQL을 이용할 수 있습니다. 저는 작업에 들어갔습니다. MS 오피스가 떠 있을 뿐이었으므로, 이것은 하얀 배경 화면이기 때문에 아무 문제가 없었습니다. MS Access에 자료를 한번만 입력하고 Report 기능 등을 이용하면 필요한 다양한 양식의 문서를 동일한 정보로 인쇄할 수 있었습니다. 게다가 날짜 계산 같은 것도 자동으로 줍고, 일을 넘겨받는 부서에서 필요한 정보를 요약해서 볼 수 있는 문서도 인쇄가 됩니다. 덕분에 많은 시간과 인력을 절감할 수 있었습니다. 한 손님이 서비스를 받고 나가는데 걸리는 시간은 기존의 1/4 수준으로 떨어졌고, 만족도도 올라갔습니다. 저는 이것 이외에도 업무가 있었기 때문에 다른 업무에 좀 더 집중할 수 있는 시간도 생겼습니다. 직속 상관은 이것이 무엇인지 전혀 이해하지 못했고 슈퍼바이저도 마찬가지였지만, 어느 순간 슈퍼바이저 얘기가 고객에게서 서비스에 대한 피드백이 훨씬 좋아지고 왠지는 모르지만 만족도가 높아졌다는 이유로 여러번 칭찬을 받았습니다. 조금 이상한 이유로 포상도 받았습니다.

아쉽게도 이제 제 머리속의 VBScript는 잊혀졌습니다. 이제 제가 주로 스크립트 언어를 제 시스템에서 사용하는 용도는 시스템 관리입니다. bash와 파이썬, 루비, 펄 등으로 하나하나 만들어두면 나중에는 꽤 쓸만해집니다. 작은 코드조각이지만 유용하게 됩니다. 이럴 때에는 C나 C++ 등으로 작성된 프로그램들을 바깥에서 감싸는 랩언어(이런 용어가 있는지는 모르겠습니다)가 되겠군요.

음악 듣는 프로그램인 아마록에서도 파이썬 스크립트를 많이 사용합니다. 이것으로 듣고 있는 음악의 가사를 긁어오거나, 앨범 커버 그림을 다운받아 올 수 있습니다. 가수에 대한 정보를 보여주기도 합니다. 예를 들어서 아마록에서 앨범 커버를 가져오는 곳은 아마존입니다. 그런데 국내 음악이라던지 이런 것들은 앨범 커버가 나오지 않죠. 웹에서 다운 받은 것들이라서 그런게 아니라, CD에서 추출한 경우에도 가사가 들어있지도 않습니다. 제가 국내 가요들을 재생할 때 옆에 가사가 표시되게 하려면 어떻게 해야 할까요? 아마록 소스 코드를 수정해서 긴긴 시간 다시 컴파일을 해야 할까요?

절대 그럴 필요가 없답니다. 파이썬 등으로 스크립트만 하나 작성해서 아마록에 끼워 주면 됩니다. 노래 제목이나 가수 이름으로 검색해서 얻은 텍스트 데이터에서 정규식 등을 이용해서 필요한 그림의 URL이나 가사의 위치를 알 수 있게 됩니다.

예전에 이맥스 시스템에서 elisp의 역할에 놀랐었는데, 이제 굳이 elisp이 아니더라도 이런 일을 충분히 할 수 있게 되었습니다. emacs와 같이 커스터마이징 가능한 소프트웨어를 만들기가 무척 쉬워졌다는 것이지요. 그것도 lisp보다 좀 더 쉽게 와 닿을 수 있는 형태의 언어로 말입니다.

물론 스크립트 언어로 모든 것을 할 수는 없습니다. 그러나 스크립트 언어로 할 수 있는 일이 점점 더 많아지고 있습니다. 예전에는 스크립트 언어로 한다고 하면 절대 안 될 것이라고 말했던 것들이 이제는 되고 있거든요.

삶의 묘미를 찾고 계신 분들은 스크립트 언어 하나쯤 배워 놓는 것은 어떠신가요? 배워서 지금 당장 웹 영어 사전에서 내용을 긁어오는 스크립트를 작성하셔서 편리하게 사용하셔도 좋습니다. 정말 컴퓨터에 내가 귀찮은 일들을 명령을 내리면 충실히 수행해주는 느낌. 어릴 때 누구나 꿈꾸어 왔던 로봇과 같은 모습이 아닐까요.

스케일링

치과에서 스케일링이라는 것을 받았습니다. 10살때쯤에 이 뽑으러 치과에 간 이후로 치료 받으러 간 것은 처음입니다. 원래 병원 가는 것을 무척이나 귀찮아합니다. 그래서 오랫동안 치료를 하지 않았는데, 좀 일찍 왔으면 좋았을 걸 그랬습니다. 검사할 때마다 항상 아무 이상 없다고 했으니 치료 받지 않았던 것이지요.

스케일링 하는 기분은 꽤 좋았습니다. 스케일링 하시는 분이 잘 하셔서 그런 것인지 몰라도 아프지도 않고 받고 나니 상쾌한 느낌입니다. 자꾸 받으면 중독될지도 모르겠습니다. 스케일링한 결과 아랫쪽 이 사이가 좀 벌어지게 되었습니다. 벌어졌다기 보다는 원래 치석이 있던 자리가 비어서 그렇게 되었지요.

치위생사 선생님께 치솔 사용법과 치실 사용법을 배웠습니다. 정말 상세하게 잘 가르쳐 주시더라구요. 한번 해 보려고 치실을 구입해서 해 보는데, 이게 너무너무 어렵습니다. 그러지 않아도 삼차원 공간 감각이 떨어지는 것 같은데 전혀 감이 안 잡히더라구요. 어디가 안쪽이고 어디가 바깥쪽인지 손가락 둘의 삼차원 좌표를 움직이는 것조차 너무나 어려운 작업이었습니다. 1주일 정도 하면 능숙해진다고 하셨으니 열심히 해 봐야겠습니다. 치실 쓰는 것이 이맥스 에디터 처음 쓸 때보다는 훨씬 어려운 느낌입니다.

스케일링 후에 얼음물을 마셔도 이가 시리다거나 하지는 않는군요. 사람마다 다른가 봅니다.

Gnash 플래시 플레이어

Gnash는 GNU 플래시 무비 플레이어입니다.

웹서핑을 하다가 우연히 Gnash를 발견하고 호기심에 설치해 보았습니다. 큰 문제없이 잘 동작하네요. 저는 젠투 리눅스를 64비트 아키텍쳐로 쓰고 있습니다. 주로 쓰는 브라우저는 오페라이고 오페라는 2007년 1월 현재 32비트만 지원하는 브라우저이기 때문에 플래시를 쓰는데에는 아무 문제가 없었습니다. 그러나 가끔씩 64비트를 목표로 컴파일 된 파이어폭스를 쓸 경우에는 플래시를 설치하지 않았기 때문에 플래시를 볼 수 없었습니다. 그 이유는 64비트 어도비 플래시 플레이어가 출시되는 것이 자꾸 지연되고 있기 때문인데 Gnash를 설치하니 잘 동작했습니다.

젠투 리눅스 기준으로

emerge gnash

를 해 주면 gnash가 설치됩니다. 이후에는 firefox, seamonkey, epiphany 등의 브라우저에서 큰 문제없이 플래시를 쓸 수 있네요.

팩토리얼을 구하는 스킴 스크립트

스킴(Scheme)이라는 프로그래밍 언어를 심심풀이로 배우고 있습니다. 상당히 깔끔한 언어라는 생각이 듭니다. 특히 알골 계열의 언어에만 길들었다면 처음 코딩할 때의 기분이 상당히 새롭습니다.

새로운 언어를 배우면 무언가 만들어 봐야 하기 때문에 차례곱을 구하는 프로그램을 작성하여 보았습니다. 실제로 차례곱을 구하는 부분은 5줄이지만 다른 부분이 대부분을 차지하고 있네요. MzScheme의 구현을 사용하여 스크립트 파일을 만들어 보았습니다. 맨처음으로 작성한 프로그램이라서 깔끔하지 못합니다. 여러 개의 숫자를 인자로 받거나 표준 입력으로부터 받아서 그 차례곱을 표준 출력으로 출력합니다. 이 프로그램을 /usr/local/bin에 넣어 두었습니다. 이제 차례곱을 쉽고 편리하게 구할 수 있겠습니다.

연습삼아 작성한 것이어서 재귀, letrec, do를 모두 한 번씩 사용해 보았습니다. 이번에는 가장 핵심적인 차례곱을 구하는 부분은 다음과 같이 재귀적으로 되어 있습니다.

(define fact
  (lambda (x)
    (if (= x 0)
        1
        (* x (fact (- x 1))))))

스킴을 처음 보시는 분도 위의 코드는 이해하실 수 있으리라고 생각합니다. 다음은 전체 프로그램의 소스 코드입니다.

#!/usr/bin/mzscheme -r
;;; Prints out factorial of given numbers.
;;; Date: 2nd of January, 2007

;; Returns factorial of given parameter.
(define fact
  (lambda (x)
    (if (= x 0)
        1
        (* x (fact (- x 1))))))

;; Prints out help message
(define help
  (lambda ()
    (display "Usage: fact [--help | [NUMBER]...]")
    (newline)
    (display "Calculate factorial of given numbers.")
    (newline)
    (display "If no numbers are given, it reads numbers from standard ")
    (display "input until EOF and prints each factorials of them.")
    (newline)
    (newline)
    (display "--help   display this message")
    (newline)
    (exit)))

;; Main procedure.
(define main
  (lambda ()
    (let ((number-of-args 
          (vector-length (current-command-line-arguments))))
      (if (and (= number-of-args 1)
               (equal? "--help" 
                 (vector-ref (current-command-line-arguments) 0)))
        (help))
      (if (= number-of-args 0)
        (begin
          (do ((number (read) (read)))
            ((eof-object? number))
            (display (fact number))
            (newline)))
        (letrec ((iter
                  (lambda (counter)
                    (if (< counter number-of-args)

            (begin
              (display (fact
                        (string->number
                          (vector-ref
                            (current-command-line-arguments)
                            counter))))
              (display #\space)
              (iter (+ counter 1)))))))
      (iter 0))))
    (newline)))

(main)