다음의 기사는 월간 프로그램 세계 1997년 6월호 특집기사로 실렸던 것입니다. 특집기사는 총 3부로 이루어져 있는데, 1부는 Perl의 소개, 2부는 Perl의 문법, 3부는 Perl을 이용한 CGI 예제 프로그램 작성으로 구성되어 있습니다. 제가 맡은 부분은 2부였고 총 분량의 절반에 해당합니다. 1부와 3부는 김대신(웹데이타뱅크)씨가 맡으셨습니다. 다음의 글은 제가 초안으로 작성한 텍스트 파일을 HTML문서로 약간 손을 본 것입니다.

차례

1. 소개
   
2. Perl의 문법
   
   1. 변수(Variable)
      
      1. 수치(number)
         
      2. 문자열(string)
         
      3. scalar variable
         
      4. vector variable
         
      5. 특수한 변수(Special variable)
         
      6. 레퍼런스(reference)
         
      7. 배열의 배열, 해시의 배열, 배열의 해시
         
   2. 식(Expression)
      
      1. 기본 연산자
         
      2. 추가 연산자
         
      3. 기본 입출력 연산자
         
      4. 비교 연산자
         
   3. Control Structure(제어 구조)
      
      1. if
         
      2. unless
         
      3. while/until
         
      4. for
         
      5. foreach
         
      6. do/while, do/until
         
      7. goto
         
      8. next, last, redo
         
   4. 서브루틴(Subroutine)
      
      1. 정의와 사용
         
      2. my와 local
         
   5. 패턴 매칭(Pattern Matching)
      
      1. 정규 표현식(regular expression)
         
      2. match, substitute, translate
         
      3. 문자열 pattern 조작
         

소개

펄은 임의의 텍스트 파일들을 검색하고 그 파일에서 정보를 추출하며, 그 정보에 따라 보고서를 작성하는데 최적화된 언어이다. 또한 많은 시스템 관리 작업에 좋은 언어이다. 이 언어는 실용적일 수 있도록 만들어졌기 때문에 크기가 아주 작거나 아름답게 만들어지지지 는 않았지만 사용하기 쉽고 효율적이며 완벽하다고 말할 수 있다. 펄은 C와 sed와 awk와 sh 등의 사람들이 친숙하게 생각하는 언어들의 장점을 모아서 만든 것이기 때문에 배우기 어렵지 않다. 표현식은 거의 C와 비슷하며, 다른 유닉스 유틸리티와는 달리 용량 등의 제한이 없다. 주로 text를 처리하는데 뛰어난 능력을 보여주지만, 바이너리 자료를 다루는데 있어서도 데이터베이스를 만드는 기능이 있을 정도이다. sed나 awk를 사용하는데 문제가 발생한다면 C로 짜는 대신에 펄로 작성하면 스크립트를 거의 바꾸지 않아도 된다.

2부. 펄의 문법

Perl의 저자, Larry Wall이 말했던 것처럼 Perl은 한 가지 일을 하기 위해 10가지 방법을 제시하는 언어이다. 어떻게(how) 할 것인지가 중요한 게 아니라 무엇을(what) 할 것인지를 먼저 생각하고 프로그래밍을 해야 할 것이다. 그러나 다양한 표현 방식들을 많이 익히면 익힐수록 프로그래머에게 더 많은 가능성이 열리는 셈이다. 다음의 글은 독자들이 기본적인 C프로그래밍을 이해할 수 있고 유닉스의 shell기반의 작업들에 무지하지 않음을 가정하고 쓰여진 것이다. 그러나 가능하면 초보자들도 이해할 수 있도록 쉬운 표현과 예제를 이용하였다. 다음의 설명은 Perl 5를 기준으로 쓰여졌으나, Perl 4에서도 무난하게 사용 가능할 것이다.

1. 변수(Variable)

기본적으로 Perl은 변수에 대해, C와 같이 강력한 type checking을 하지 않는다. 다시 말해서 '값이 어떤 방식으로 저장되어있는가'는 '어떻게 사용할 것인가'와는 별개의 문제라는 것이다. C프로그래밍에 익숙한 사용자라면 int c = 'x'; 으로 정의된 변수 c가 문자형으로도 정수형으로도 사용 가능한 것을 떠올릴 수 있을 것이다. 그런 것을 확장해서 생각해보면 Perl의 변수들은 여러 형태로 사용할 수 있다. 그것은 Perl 인터프리터(interpreter;해석기)가 내부적으로 자동 변환해 주기 때문에 가능한 것이다.

1) 수치(number)

Perl에는 정수형 수치는 존재하지 않는다. 모든 수치는 double-precision floating point형 수치로 존재한다. 다음과 같은 형태의 수치는 float literal(소수형 상수)이다.

111.25
23.25e91
-12.5e29
-12e-34
3.2E-23

342
-2423
0377
-0xf0

$str1 = 'hello\n\neveryone';
$str2 = "hello\n\neveryone";
print $str1 . "\n";
print $str2 . "\n";

hello\n\neveryone  # 이것은 str1의 출력 결과이다.
                   
hello              # 이것은 str2의 출력 결과이다.

everyone

$str0 = "I'm a boy.";
$str1 = 'hello $str0';
$str2 = "hello $str0";
print $str1 . "\n";
print $str2 . "\n";

hello $str0       # str1의 출력 결과
hello I'm a boy.  # str2의 출력 결과

print 'I\'m a boy.';  # 출력 결과 I'm a boy.

$time_of_today = `date`;
print $time_of_today;  # 출력 결과 Mon Apr 27 20:59:04 KST 1998

$keyword = 'doc';
print `ls | grep $keyword`;

jdbcprog.doc
vi.doc
xprog.doc

$abc = q$I'm a boy. You're a girl.$;
$def = qq#Hello,\neveryone#;
$ghi = q&
            while (test != 0) {
                    i++;
                printf("%d", i);
            }
&;

$abc
$ABC
$account_number_of_bank1
$account_number_of_bank2
$xyz001

@certain_list = ("abc", "def", "123");
@quoted_list = qw(
  1, 2, 3,     
  4, 5, 6,
  7, 8,
);
%a_special_hash = (('test', "hello"), ('verify', 123));
%list_like_hash = ("red", 0xf00, "green", 0x0f0, "blue", 0x00f);
%another_special_hash = (
  red => 0xf00,
  green => 0xf00,
  blue => 0xf00,
);

@next_list = ("abc", "def", "123", @previous_list);
%general_hash = (%a_special_hash, %list_like_hash);

print "@certain_list";
print @certain_list;

abc def 123
abcdef123

print "%a_special_hash";
print %a_special_hash;

testhelloverify123
%a_special_hash

print $a_special_hash{'test'};
$key = 'verify';
print $a_special_hash{$key};

print $colors[0];
$id_list[3]++;
print @month[8..11];           # @month[8..11]는 @month[8, 9, 10, 11]과 같다.
$b = $namelist[$number];

($a, $b, $c) = (3, 4, 5);
@array = ('a', 'b', 'c', 'd');

@a = ();

use English;

$_ = 'abcdefghi';
/def/;
print "$`:$&:$'\n";

/Version: (.*)|Revision: (.*)/ && ($rev = $+);

use FileHandle;

use FileHandle;
use English;

print '$| = '."$|\n";
print '$% = '."$%\n";
print '$- = '."$-\n";
print '$~ = '."$~\n";
print '$^ = '."$^ \n";

print '$= = '."$=\n";<
print '$= = '."$FORMAT_LINES_PER_PAGE\n";
format_lines_per_page STDOUT 30;
print '$= = '."$FORMAT_LINES_PER_PAGE\n";
print '$= = '."$=\n";

select((select(HANDLE), $| = 1, $^ = 'mytop')[0]);

$foo{$a, $b, $c}
$foo{join($;, $a, $b, $c)}

$ENV{'PATH'} = "/bin:/usr/bin:/usr/local/bin";

sub sighandler {
  local($sig) = @_;
  print "Closing log file...\n";
  close(LOG);
  exit(0);
}
$SIG{'INT'} = 'handler';

$scalarref = \$foo;  # $foo는 일반변수, \는 reference하는 연산자
$constref = \3.24;  # hard reference는 값에 대한 reference이다.
$arrayref = \@array1; 
$hashref = \%hash2; 
$globref = \*STDOUT;  # *는 typeglob이며, 모든 타입을 가리킨다.
$subref = \&subroutine3; 

print $$scalarref;  # print $foo;와 동일하다.
$$constref   # 3.24와 동일하다.
$$hashref{'key1'}   # $hash2{'key1'}과 동일하다.
&$subref;   # subroutine3를 호출하게 된다.
shift(@$arrayref);  # @array1에 대해 shift연산을 하는 것과 같다.

$multiref = \\\\123;  # 123에 대해 \연산을 4번 시행
print $$$$$multiref;  # $multiref에 대해서 $연산을 4번 시행

$arrayref = [1, 2, [3, 4, 5]];  # anonymous array reference
$hashref = {
  'Meg' => 'Ryan',   # anonymous hash reference
  'Billy' => 'Christal'
};

$subref = sub { 
  print "When Harry met Sally\n"; # anonymous subroutine reference
};

@array = (1, 2, (3, 4, 5));
%hash = (
  'Meg' => 'Ryan',   # anonymous hash reference
  'Billy' => 'Christal'
);
&subroutine1;
sub subroutine1 {
  print "Sleepless in Seattle\n"; # anonymous subroutine reference
};

$$arrayref[0] = "first";
${$arrayref}[0] = "first";
$arrayref->[0] = "first";

$$hashref{'key2'} = "McLean";
${$hashref}{'key2'} = "McLean";
$hashref->{'key2'} = "McLean";

$arrayref->[3] = "list-item1";

$arrayref->[3]->[4] = "multi-dimensional-item2";
$arrayref->[3][4] = "multi-dimensional-item2";
$$arrayref[3][4] = "multi-dimensional-item2";

$ref_list_of_list = [
  ["separator", "delimiter", "terminator"],
  ["long", "short", "int", "signed", "unsigned"],
  ["physics", "chemistry", "computer"],
];
print $ref_list_of_list[0][2];      # terminator가 출력된다.
print $ref_list_of_list->[2][1];    # electronics가 출력된다.
print $ref_list_of_list->[1]->[3];  # signed가 출력된다.

$var1 = "test";
$sr = "var1";
$$sr = "verify"; # $var1 eq "verify"

@var2 = ("hello", "program", "world");
$sr = "var2";
push(@$sr, "perl"); # @var2 eq ('hello', 'program', 'world', 'perl')

@list_of_list = (
  ("separator", "delimiter", "terminator"),
  ("long", "short", "int", "signed", "unsigned"),
  ("physics", "chemistry", "computer"),
);

print $list_of_list[0][2]; 
print $list_of_list[2][1]; 
print $list_of_list[1][3];

@list_of_list = (
  ["separator", "delimiter", "terminator"],
  ["long", "short", "int", "signed", "unsigned"],
  ["physics", "chemistry", "computer"],
);
print $list_of_list[0][2];  # terminator가 출력된다.
print $list_of_list[2][1];  # electronics가 출력된다.
print $list_of_list[1][3];  # signed가 출력된다.

%hash_of_list = (
  token => ["separator", "delimiter", "terminator"],
  type => ["long", "short", "int", "signed", "unsigned"],
  science => ["physics", "chemistry", "computer"],
);

print $hash_of_list{'token'}->[1]; # delimiter가 출력된다.
print $hash_of_list{'type'}[0];    # long이 출력된다.
print $hash_of_list{science};      # ARRAY(0xb2074)같은 정보가 출력된다.
print $hash_of_list{science}->[2]; # computer이 출력된다.
print @$hash_of_list{science};     # 아무 것도 출력되지 않는다.
print @{$hash_of_list{science}};   # physicschemistrycomputer 출력

%hash_of_hash = (
  token => {
    s => "separator", 
    d => "delimiter",
    t => "terminator"
  },
  type => {
    l => "long",
    s => "short",
    i => "int"
  },
  science => {
    e => "chemistry", 
    c => "computer",
  },
);

print $hash_of_hash{token}->{s}; # separator 출력
print $hash_of_hash{type}{i};    # int 출력
print $hash_of_hash{science};    # HASH(0xb205c)같은 정보가 출력된다.

2 + 3  # 5
5.1 - 2.4 # 2.7
3 * 12  # 36
14 / 2  # 7
10.2 / 0.3 # 34
10 / 3  # 3.33333...

if (3 > 4) {
  print "3 is greater than 4.\n";
} else {
  print "3 is not greater than 4.\n";  # 비교문이 거짓이므로 여기가 실행됨
}

$b = "Hello, ";
$c = "world";
$a = $b . $c;  # $a = "Hello, world"

$a = "boy";
$b = $a x 3;  # $b = "boyboyboy"
$c = $a x 4.2;  # $b = "boyboyboyboy", 4.2는 4로 cast된다.

$a *= 3;  # $a = $a * 3;
$b .= "\n";  # $b = $b . "\n"
$c ||= 2;  # $c = $c || 2, $c가 2가 아니면 2의 값을 대입한다.

$a = "   3.5abcd" * 4;
print $a;   # 3.5 * 4 = 14가 출력된다.
$b = "3" + "4";   # $b = 7

print "boy" . (3 * 2);  # boy6가 출력된다.
print "boy" x (3 * 2);  # boyboyboyboyboyboy가 출력된다.

while (<>) {
  chomp;   # default input string의 마지막 \n을 제거한다.
  next unless -f $_;  # 정규파일이 아닌 경우에는 다음으로 넘어간다.
}

stat($file);
print "Readable\n" if -r _; # _는 마지막으로 사용된 filehandle이다.
print "Writable\n" if -w _; # readable, writable, executable한지 체크한다.
print "Executable\n" if -x _;

&newfile if -M $file < 5; # mtime이 5일 이내라면 서브루틴을 호출한다.

$input = <STDIN>;
@input = <STDIN>;

print while <STDIN>
print $_ while <STDIN>;
print $_ while definded($_ = <STDIN>);
for (;<STDIN>;) { print; }
for (;<STDIN>;) { print $_; }
while (<STDIN>) { print; }
while (<STDIN>) { print $_; }
while (defined($_ = <STDIN>)) { print $_ };

In France a man who has ruined himself for women is generally regarded 
with sympathy and admiration; there is a feeling that it was worth while, 
and the man who has done it feels even a certain pride in the fact; in 
England he will be thought and will think himself a damned fool. That is
why Antony and Cleopatra has always been the least popular of Shakespeare's 
greater plays.