Study Perl

 지금까지 알아본 배열 변수는 저장된 리스트의 값을 찾기 위해서는 첨자를 사용하였다. 예를 들어 $array[3]은 배열 변수 @array에 저장된 4번째 값을 나타낸다. 그러나 배열 변수는 한 가지 문제가 있다. 배열의 특정 요소에 어떤 값이 저장되어 있는지 프로그램을 작성하는 사람이 모두 기억하기가 어렵다는 것이다.

 예를 들어 다음의 예를 보자. @student라는 학생 정보를 담고 있는 배열이 있다고 하자.

$student[0]= “홍길동”;                  # 이름

$student[1]= “123456”;                 # 학번

$student[2]= “서울시”;                  # 주소

$student[3]= “345-6789”; # 전화

위와 같이 0번부터 순서대로 이름, 학번, 주소, 전화를 대입시켰다. 이정도로 간단하다면 별로 문제가 되지 않을 것이다. 그러나 배열 내용이 많을 수록 어떤 번호에 어떤 항목이 들어가는지 기억하기가 어려울 것이다.

배열 변수가 이런 문제점을 가지고 있는 것은 배열의 값을 참조하기 위해 숫자로 된 첨자를 사용하기 때문이다. Perl에서는 이러한 문제를 극복하기 위해 또 다른 종류의 배열을 지원한다. 이것이 조합 배열(Associative array)이다. 조합 배열은 숫자뿐만 아니라 임의의 스칼라 값도 첨자로 사용한다.

일반 배열 변수와 조합 배열 변수를 구분하기 위해서 일반 배열에서 사용하는 @ 문자 대신에 % 문자를 사용하다. 그 뒤에 변수명은 일반 변수명의 규칙과 동일하다.

앞에서 %students라는 조합 배열에 값을 대입할 때는 배열 첨자와 값을 번갈아 가면서 쓰면 된다. 즉 첨자가 “name” 인 배열의 값은 “홍길동”이 되고 “id”인 배열의 값은 “123456”이 되는 것이다.  Perl5에서는 조합 배열에 대입할 때 아래와 같이 좀더 보기 쉽게 => 를 사용해서 대입할 수 있다.

%students=(“name”=>“홍길동”, “id”=>“123456”, “address”=>“서울시”, “phone”=>“345-6789”);

다음과 같이 배열 내용을 추가할 수 있다.

$students{‘mobile’}=“234-5678”;

그렇다면 배열 요소를 삭제할 수 있을까? 물론 있다. 삭제는 delete라는 함수를 사용한다.

delete($student{‘mobile’});

위와 같이 실행하면 배열 %students에서 mobile을 첨자로 하는 요소를 삭제하게 된다.

배열의 대입에 관하여 알아보자. 앞에서 @array2=@array와 같은 예를 보았다. 이런 경우는 같은 배열이 만들어지게 된다. 그러나 다음의 예를 살펴보자.

@students=(“name”, “홍길동”, “id”, “123456”, “address”, “서울시”);

%students=@students;

앞의 문장은 어떻게 처리될까? 결과는 @students의 내용이 %students 조합 배열에 그대로 저장된다. 다른점이라면 첨자와 값의 순서로 조합 배열의 형태로 저장된다는 점이다. 즉 $students[0]은 “name” $students[1]에 “홍길동”, $students[2]는 “id”와 같았지만 대입을 하고 나면 $students{‘name’}은 “홍길동”, $students{‘id’}는 “123456”과 같이 저장되는 것이다. 잘 이해가 되지 않는다면 예제를 작성해서 실행해 보기 바란다. 값을 이것 저것 바꿔서 실행해 보면 이해가 될 것이다.

참고로 @students와 %students는 완전히 다른 배열 변수이다. 이름이 같아도 일반 배열과 조합 배열이기 때문에 다르게 인식된다.

다음의 경우는 일반 배열에서와 같이 같은 조합 배열이기 때문에 %students의 내용이 그대로 %students2에 대입된다.

%students2 = %students;

배열을 삭제할 때는 delete 함수를 사용한다.

배열에서 모든 요소를 출력하고 싶을 때 일반 배열은 0부터 순서대로 첨자가 부여되기 때문에 배열의 크기를 측정한 다음에 0부터 순서대로 값을 출력하면 되지만 조합 배열에서는 첨자의 값이 임의의 숫자 또는 문자로 이루어지기 때문에 어떤 첨자를 가지고 있는지 알 수가 없다.  이럴 때는 keys라는 함수를 이용한다. keys(%array)라고 하면 첨자의 목록을 배열로 리턴한다.

다음의 예는 조합 배열의 모든 값을 출력하는 예제이다.

foreach $key (sort keys(%students))

{

             print “$key : $students{$key}\n”;

}

앞의 예제는 %students의 모든 내용을 첨자와 함께 값을 출력하는 것이다.

조합 배열의 저장 순서는 항상 임의적이다. 저장되는 순서대로 출력된다는 보장이 없다. 그렇기 때문에 앞에서 배웠던 sort 함수를 사용해서 정렬을 해준 것이다.

리스트는 괄호로 묶여진 일련의 스칼라 값들이다. 다음의 예를 보자.

(5, “book”, 4, “perl”)

위의 리스트에는 4개의 요소로 구성되어 있다. 리스트의 길이에는 제한이 없다. 그리고 어떤 스칼라 값도 포함할 수 있다.

특정 목적으로 만들어진 변수에 리스트를 저장한 변수를 배열 변수(Array Variable)이라고 하고 줄여서 배열이라고 한다.

배열은 @로 시작하는 변수이다. 배열의 값을 사용할 때는 $numbers[1]과 같이 $를 사용하고 [ ]를 사용하여 배열 번호를 입력하면 된다. 번호는 0번부터 시작한다. 앞에서 $numbers[3]의 값이 0번부터 시작하면 처음부터 4번째의 값인 4가 된다.

그렇다면 $numbers[5]의 값은 무엇일까? @numebrs는 0번부터 4번까지 5가지가 있다. $number[5]는 @numbers 배열의 6번째 값을 의미하는데 실제로 존재하지 않는 값이다. 이럴 경우에는 0(null)이 된다.

배열에도 스칼라 변수에서와 마찬가지로 숫자와 문자열 값을 구분하지 않는다. @array에서와 같이 배열에 값을 넣을 때도 마찬가지로 숫자값과 문자값을 혼용하여 입력할 수 있다.

@array2 = @array;

위의 식에서는 @array의 내용이 @array2에 그대로 대입된다. 같은 배열이 되는 것이다.

그렇다면 다음과 같은 경우는 어떻게 될까?

$size=@array;

눈치가 빠른 사람이면 변수 이름을 보고 알았을 것이다.  $size에는 @array 배열의 크기가 대입된다. @array에는 모두 네 가지의 값이 저장되어 있으므로 4라는 값이 대입된다.

다음의 예는 배열의 마지막 첨자(subscript)를 대입하는 것이다. $last_index에는 2가 대입된다.

$last_index=$#colors;

리스트에는 몇 가지 함수가 있다. 하나씩 알아보자.

(1) shift

- 리스트의 첫 요소를 꺼낸다.

@list=(1,2,3,4);

$num = shift (@list);

결과는 $num에는 1이 들어가고 @list=(2,3,4)가 된다. 리스트 배열에서 첫 번째 요소를 꺼내고 해당 내용을 삭제한다.

(2)unshift

- 리스트의 처음에 요소를 추가하고 각 요소는 뒤로 하나씩 밀리게 된다.

@list=(1,2,3,4);

unshift(@list, 0);

결과는 @list=(0,1,2,3,4)가 된다. 지정된 값이 리스트의 첫 번째 요소가 되고 나머지는 그 뒤를 이어 하나씩 밀리게 되는 것이다.

(3) push

- 리스트의 마지막에 요소를 추가한다.

@list=(1,2,3,4);

push(@list, 5);

결과는 5가 @list의 마지막에 추가가 되어 @list=(1,2,3,4,5)가 된다.

(4) pop

- 리스트의 마지막 요소를 꺼낸다.

@list=(1,2,3,4);

$num=pop(@list);

결과는 @list의 마지막 요소 4를 꺼내서 $num에 대입하게 되고 @list=(1,2,3)이 된다.

(5) sort

- 리스트를 순서대로 정렬한다.

@list=(3,2,5,4,1);

@list=sort(@list);

결과는 @list에 있던 (3,2,5,4,1)을 값을 크기 순대로 정렬하여 (1,2,3,4,5)의 값이 @list에 다시 저장된다.

(6) reverse

- 리스트의 순서를 역순으로 뒤집는다.

@list=(1,2,3,4,5);

@list=reverse(@list);

결과는 @list의 (1,2,3,4,5)를 거꾸로 정렬하여 (5,4,3,2,1)이 @list에 저장된다.

그냥 일반적인 변수를 스칼라 변수(Scalar Variable)이라고 하고 $로 시작한다. $ 다음에 변수 이름을 쓰면 된다. 변수 이름은 첫 글자는 알파벳 또는 밑줄(_) 이고 다음에는 알파벳, 숫자, 밑줄 이어야 한다.

변수에 문자열을 대입을 할 때는 1라인 또는 2라인과 같이 따옴표를 사용하는데 차이점은 “ ”는 따옴표 안에 다른 변수가 있을 경우에 해당 값이 치환이 되서 저장되지만 ‘ ’의 경우에는 변수 이름이 그대로 저장이 된다. 즉 ‘ ’는 내용이 써있는 그대로 반영된다는 것이다.

Perl은 C에서처럼 변수의 타입을 지정해 주지 않아도 된다. 숫자를 넣어도 되고 문자를 넣어도 된다. 앞의 형식에서 3라인은 숫자 100을 저장한 것이고 4라인은 문자열 “100”을 저장한 것이다. 그러나 Perl에서는 상관이 없다. 문자 형식으로 대입을 했더라도 4라인은 특별한 변환 함수를 사용하지 않아도 숫자로 사용될 수 있다. 다음의 예를 실행해 보자.

위의 예제를 실행하면 다음과 같은 결과가 나온다.

[실행 결과]

Sum1 : 150

Sum2 : 10050

Sum3 : 100 + 50

Sum4 : $value1 + $value2

$value1에서 “ ”를 사용하여 100이라는 값을 저장하고 $value2에서는 50을 숫자로 저장을 했지만, $sum1에서는 숫자로 연산이 되고 $sum2에서는 문자로 연산이 된 것을 볼 수 있다. 4라인에서 .은 문자열을 붙이라는 명령이다. 이처럼 Perl은 변수 타입에 신경 쓰지 않아도 된다. 데이터 타입을 엄격히 선언하고 사용하는 언어를 사용했던 사람은 상당히 편하게 느낄 것이다. 하지만 프로그램이 복잡해지면 원하지 않은 결과를 얻을 수도 있으니 주의해야 한다.

실행 결과에서 Sum3과 Sum4는 앞에서 말한 “ ”과 ‘ ’의 차이점을 보여주고 있다. Sum3은 $value1과 $value2의 값이 치환되어서 출력되었고, Sum4는 $value1과 $value2를 문자열로 출력하였다. 예를 보면 “ ”과 ‘ ’의 차이점을 알 수 있을 것이다.

앞의 예제에 보면 print 명령의 마지막에 \n 라는 것을 볼 수 있다. 이것은 이스케이프 시퀀스(Escape Sequence)라고 하는데 문자열 안에서 어떤 특정한 기능을 수행하며 이스케이프 시퀀스는 백슬래시(＼) 뒤에 문자로 이루어져 있다. 한글을 지원하는 에디터에서는 대부분이 \과 같이 원화 표시로 나오게 되는데 어떻게 사용하던지 상관은 없다. 주의할 점은 조금 전에 알아보았지만 이스케이프 문자는 이중 따옴표(“”)에서만 작동한다는 점입니다.

다음은 이스케이프 문자의 예이다.

백슬래시는 이중 따옴표 안에서 $ , @, “ 등의 문자를 표시할 때도 사용한다.

print “Variable name is $name”;

앞의 경우는 변수 이름을 표시하려고 하지만 변수 $name의 값이 대입되어 결과가 출력될 것이다. $name이라는 변수에 1이라는 값이 들어있다면 결과는 “Variable name is 1” 이 될 것이다. 그러나 다음과 같이 하면 변수 이름이 출력된다.

print “Variable name is \$name”;

위의 경우에는 백슬래시 다음에 오는 문자는 그대로 출력되며 결과는 Variable name is $name이 된다.

 다음의 소스를 에디터에 입력한 후에 hello.pl이라고 저장해 보자.

앞에서 작성한 hello.pl을 실행해 보자. 실행은 두 가지 방법으로 할 수 있다.

(1) Perl 인터프리터(Interpreter)와 함께 실행
 형식)

 perl hello.pl

(2) 소스 파일을 실행
 형식)

 hello.pl

(1)번의 방식은 윈도우나 유닉스 계열에서 모두 사용이 가능하다. 이 경우에는 물론 Perl 인터프리터가 PATH에 설정되어 있어서 아무 디렉터리에서나 실행이 가능해야 한다. 그렇지 않으면 전체 경로를 입력해서 실행해야 한다.

(2)번 방식은 주로 유닉스 계열에서 실행하는 방식으로 소스 파일 첫째 줄에 Perl 인터프리터의 위치를 미리 지정해 놓는다. 앞의 소스에서는 #!/usr/bin/perl이 Perl 인터프리터의 경로를 나타내준다. 시스템에 따라 경로가 다르므로 perl 경로를 알아본 다음에 넣어야 한다. 대체로 리눅스는 /usr/bin/perl 이고 유닉스에서는 /usr/local/bin/perl에 있다. perl 인터프리터의 경로를 알기 위해서는 아래와 같이 which 명령을 사용면 경로를 알 수 있다.

prompt> which perl

/usr/bin/perl

프롬프트에서 위와 같이 which perl 이라고 입력하면 경로를 출력해 준다. 만약에 설치가 되어 있는데 경로가 출력되지 않는다면 perl 파일이 있는 폴더가 PATH에 설정되어 있지 않기 때문이다. 환경설정에 /usr/bin 이나 /usr/local/bin 등의 perl 파일이 있는 경로를 PATH에 추가해 주면 된다.

한 가지 주의할 점은 유닉스 계열에서는 파일명을 입력해서 실행하려면 파일에 실행 권한이 있어야 한다. 일반적으로 생성되거나 FTP로 전송한 파일은 실행 권한이 없기 때문에 다음과 같은 명령을 먼저 입력해야 한다.

$chmod +x hello.pl

위의 명령은 매번 실행할 때 마다 입력하는 것이 아니고 처음 한 번만 입력하면 된다. 해당 파일을 삭제하지만 않는 다면 실행 권한이 유지된다.

[알아두기 시작]

인터프리터(Interpreter)는 “해석자, 통역자” 라는 의미이다. 여기서 Perl 인터프리터라는 것은 Perl의 소스를 해석하고 결과를 나타내주는 프로그램을 말하는 것이다. C와 같이 컴파일된 후 실행되는 언어와 달리 Perl은 실행할 때 소스가 해석되기 때문에 Perl 인터프리터의 위치를 지정해 줘야 한다.

[알아두기 끝]

실행한 결과가 다음과 같이 나온다면 정상적으로 실행된 것이다.

> hello.pl

Hello World. This is Perl

> 

소스를 살펴보자. 우선 1라인은 앞에서 설명한 대로 Perl 인터프리터의 경로이다. #은 원래 주석을 의미하며 첫 번째 줄은 Perl 인터프리터의 경로를 의미한다. 2라인은 print 명령으로 따옴표 안의 내용을 그대로 출력한다. 3라인은 종료하는 명령이다. 각 라인은 ; 으로 종료한다. 1라인은 실제로 수행되는 줄이 아니기 때문에 ; 를 사용하지 않는다.

아주 간단한 예제로 어떤 형식으로 작성하고 작동되는지 알아보았다.

이제부터는 변수를 시작으로 Perl에 대해서 좀더 자세히 알아보자.

CGI(Common Gateway Interface)라는 개념이 생기고 나서 Perl은 CGI라고 생각할 정도로 CGI로서의 Perl은 상당한 인기를 누렸다. 그러나 Perl은 CGI 이외에도 다양한 방법으로 활용할 수 있다. 앞으로 여러 회에 걸쳐 Perl의 기초에 대해 알아보고 활용하는 방법에 대해서도 알아보자.