perl 기본 문법

아래 글은 처음에 Simon Cozens의 Beginning Perl 이라는 책으로

공부를 시작하면서 나름대로 정리해놓은 것이다.

Perl은 문법이 워낙 다양한 만큼 자주 까먹어서 정리해놓고 Ctrl+F로 찾는 것이

도움이 많이 된다.

 

처음

ord(‘#’);   # returns ascii code of ‘#’

‘ adsfadfa’ # 아무것도 처리하지 않는다 /t /n 등… 하지만 //와 /. 만은 처리한다

q/ / , qq< > 등으로 바꿔서 쓸 수 있다.

print “ba”x3; # ba를 세번 출력한다

“afds”.”123″ # 문자열 합치기 연산자 (afds123 리턴)

변수:

use strict 사용을 하지 않으면

전역 멤버 변수 각각 뭐 잘 지정됨

만일 use strict 사용하면

전역은 our 멤버는 my로 명시해주어야함

기본적으로 단일 변수는 $, 배열은 @, 해쉬는 %로 시작한다. 그러나 이는 변수 형을 뜻하지 않고 리턴형을 말한다.

$name=”js”; #일때

“asf $name”; #은 asf js 를 리턴한다

스트링 변수 뒤에 바로 붙여 써야할 때는

${name}th # prints jsth

와 같이 사용

입력 받기:

$comment=<STDIN>;

---

3장 리스트와 해쉬

(12, 34, 1) #3개 원소를 가진 리스트이다.

qw/ / 등으로 쓸 수 있는데 원소의 구분은 comma가 아닌 공백으로 한다. qw/12 34 1/ 와 같이..

(3, 4, 5, 7) 이나 (3, (4, 5), 7) 은 서로 같다

리스트 원소의 접근은 대괄호로 한다.

@aa=(3, 4, 5, 7);

@aa[2]; #는 5를 리턴한다. 음의 인덱스는 뒤에서 부터 센다. aa[-1]은 7을 리턴한다.

@aa[(2,3)] 또는 @aa[2,3] 을 통해 부분 리스트를 구할 수 있다. 이는 (5, 7) 리스트를 리턴한다.

(1 .. 4) 는 (1, 2, 3, 4) 를 리턴한다. 정수가 아닐 때에는 버림한다. (1.3 .. 4.9) 도 준식과 같은 결과를 리턴한다.

(‘a’ .. ‘k’) 는 문자열 순서대로 리스트가 생긴다. 원소를 뒤집고 싶다면 reverse() 함수를 사용한다.

@at 과 $at 은 동시에 선언 가능하다( 각각 다른 변수이다.)

@at=(3, 4, 5);

$len=@at; # 이렇게 한 경우 $len 에는 자동으로 at의 길이인 3이 저장된다.

print @at; # 345 로 출력한다

print “@at”; # 3 4 5 로 출력한다

$a=(@at)[2]; 로 접근하면 $a에는 5가 저장된다

$a=$at[2]; 로 표현해도 같다 $ @ 기호는 본체의 타입이 아니라 리턴 값의 타입을 나타낸다.

my $ele;

for $ele (@at){ print $ele, “\t” } 하면 3    4    5 와 같이 출력된다. (모든 원소 출력)

# $ele 가 없다면 perl 이 알아서 $_ 라는 변수를 사용한다.

$#at 은 @at 리스트의 가장 높은 인덱스를 리턴한다. 즉 2 를 리턴함

리스트를 스택처럼 쓸 수 있다. pop @at 을 하면 가장 마지막 원소가 리턴되면서 리스트에서 제거된다

push @at, “asdf”; # asdf 스트링을 푸시

앞의 원소 쪽에서 push pop을 위해서는 unshift, shift 를 사용하면된다.

sort @at 을 하면 정렬된다.

해쉬:

%aa =(

amy => “good”,

bob => “good”,

chris => “bad”,

david => “nice”

);

화살표 좌측이 key값

배열과 호환이 되지만 key가 분간이 안가므로 조심해야한다

%aa=@bb;

@bb=%aa;

등의 연산이 된다는 소리다. (“amy”, “good”, “bob”, …) 과 같은 순서로 변환된다.

해쉬 접근은 $aa{david} 과 같이 한다. david는 따옴표를 붙여도 안붙여도 다 된다.

---

Loops and Decisions

변수 여러개 한방에 정의:

my ($a, $b); # 괄호 빼먹으면 안된다

chomp(어떤 스트링,[또 스트링]); 은 입력시에 캐리지 리턴을 하면서 생기는 개행문자를 없애준다.

사실 chomp는 우측 trim의 애칭이다.

if( not exists $aa{$i}){} # 이 것은 %aa 해쉬에 $i 이름의 key가 존재하는 않는 지를 검사한다

die “asdfafd”; # 에러 출력후 프로그램이 멈춤

defined $a # $a가 선언된 후에 초기화가 되었는지 판별한다

위의 if문은 다음과 같이 표현가능하다

die “asdfafd” exists $aa{$i};

또는

exists $aa{$i} or die “asdfafd”;

elseif 가 아니라 elsif를 사용해야 한다

중요 for문에서 $_ 는 단순 대입이 아니라 별칭이다 (C언어에서 &) 즉, $_을 변화시키면 해당 변수들이 같이 변한다.

작업 뒤에 for문을 써도 된다.

@ARGV는 실행시의 argument 배열이다.

last는 C언의 break; 이다

next는 C언어의 continue; 이다

---

Regular Expressions

split “asd adf”; # 띄어쓰기로 구분된 문장을 나누어진 배열로 리턴한다.

if($_ =~ /adf/) # 기본변수에 adf가 포함되어있나. if(/adf/)로 해도 됨

if($_ !~ /adf/) # 기본변수에 adf가 포함안되어있나

if(/adf/i) # insensitive matching 이다 일단 대소문자 구분은 안하는데 다른 것은 잘 모르겠다.

Perl Regex에서 특별한 기능을하는 Metacharacter는

. * ? + [ ] ( ) { } ^ $ | \   의 12개 이다.

기능을 없애고 싶다면 \Q 와 \E 의 짝으로 묶어버리면 된다.

if(/\Q$pattern\E/) 와 같이 사용하면 pattern 변수안에 들어있는 metacharacter들은 무시된다.

while(<>){} # 이 순환문은 실행시 던져진 아규먼트 이름을 가진 파일을 열어서 한 줄씩 $_로 읽어들인다

[^aeo] 는 aeo를 포함하지 않은 것

[1-3a-d] 와 같이 이어 붙이면 1-3또는 a-d라는 소리

\d 는 숫자 \w는 단어(문자또는 숫자) \s 는 공백에대한 shortcut이다. 각각 대문자로 쓰면 그것을 제외한다는 뜻이다.

\b 는 boundary로 공백이나 ” 등의 문자 또는 문자열의 시작 및 끝을 뜻한다. 즉 한 문장에서 단어단위로 자를 때 유용.

a? 라고 쓰면 a가 있을 수도 있고 없을 수도 있다는 것이다. s?he 는 she or he를 뜻한다

a+ 라고 쓰면 a가 하나 일수도 있고 연속 여러개일 수도 있다는 것이다.

a* 라고 쓰면 a가 없을 수도 있고 있을 수도 있고 여러개일 수도 있다는 것이다.

a{2,4} 라고 쓰면 a가 2번 3번 4번 반복될 수 있다는 것이다.

a{3,} 라고 쓰면 a가 3번 이상 반복될 수 있다는 것이다.

s/asdf/ase/; #처음 찾은 asdf 하나를 ase로 변환

s/asdf/ase/g; #모든곳에서 변환

유닉스 등에서 경로를 넘겨줄 때 \/usr\/bin 과 같은식으로 불편한데 s#/usr/bin/#으로 사용가능함

/m /s 등은 http://gypark.pe.kr/wiki/Perl/정규표현식#H_1_1_10 참고

/x 는 너무 드러운 정규식이 나왔을 때 공백 무시하게 하여 정리해서 볼 수 있게 해줌

split join 알아서 잘하면되고

transliteration은 substitute를 여러개 동시에 한다.

tr/asdf/0123/; 과 같이 쓰면 af는 03으로 바뀔 것이다. 여기서 질문은 $_ 이외의 다른 변수의 문자열은 어찌 바꾸냐인데?

$a =~ tr/asdf/0123/; 은 $a 내부에서 바뀐 횟수를 리턴하므로

$cnt= $a =~ tr/asdf//; 를 통해 asdf가 등장한 횟수를 셀 수 있다. 이렇게하면 아무 일도 발생하지 않지만

$a =~ tr/asdf//d; 를 쓰면 발생한 곳은 다 지워진다.

More Advanced Topic는 일단 뛰어넘기ㅋ

---

파일

<>는 <ARGV>의 약자

$/ 는 separator를 결정함. 기본값은 \n 임. 만일 빈 것 “”으로 지정하면 아무 공백도 없는 newline을 선택한 것(문단 단위)

undef로 지정하면 separator 없이 모든 문자를 한 변수에 대입하게됨

rand(숫자) 는 0에서 숫자 사이의 무작위 수 리턴

< $filename : 파일에서 읽어오기(STDIN 으로 입력 받는 것임)

> $filename : 원본 없애고 쓰기(위험)

>> $filename : 이어쓰기

숫자의 경우 <=> 문자의 경우 cmp 비교는 단순 == 또는 eq 와는 다르다.

왼쪽이 크면 1 같으면 0 오른쪽이 크면 -1을 리턴한다.

sort{$a <=> $b} 로 비교 방법을 지정해 줄 수 있다. $a, $b는 perldoc 검색해보니 sort에서만 쓰이는 특수변수라 한다.

handle을 대체하려고 할 때 *문자를 사용한다.

*INPUT=*STDIN 을 통해 파일 입출력을 하려고 만든 핸들을 STDIN으로 대체할 수 있다.

*을 이용하면 별칭으로 지정하는 것이다. (하나를 변경하면 다른 것도 같이 바뀐다.)

binmode FILEHANDLE; 을 사용하면 개행및 EOF 처리를 하지 않는다.(보통 문서들은 OS마다 각각 처리해준다)

만일 파일핸들을 많이 사용한다면 print FILEHANDLE “asdfa” 를 매번 써주기 귀찮으므로

select FILEHANDLE; 을 한번 써주면 그 이후의 print는 모두 STDOUT이 아닌 그 핸들로 간다.

다시 복구해주는 것을 잊으면 안된다.

localtime 함수는 로컬타임을 리턴 자세한건 perldoc 참조하면 될듯..

기본적으로 perl은 read write시에 버퍼링을 한다. 이것을 끄려면 $|=1; 로하면 되고 켜려면 0으로 하라

unix등의 시스템에서 file permission 은 umask(expr) 로 설정할 수 있다

piping: 어떤 프로그램의 출력을 다른 프로그램의 입력으로 사용 : ‘|’ 기호를 이용하면 됨

먼저오는 프로그램 | 뒤에 오는 프로그램 형식으로 됨

File test: 파일을 열기 전에 상태 테스트를 해봄 if(-d $filename) 등으로 할 수 있음 -d 대신 다른 것도 많음

---

References

$asdf=\@array; # 같이 사용하면 array에 대한 reference라고 할 수 있는데 여기서 단순 포인터가 아니라 별칭과 같은 개념이라서 값을 변화시키면 같이 변한다.

배열의 경우 $as=[2,3,4] 과 같이 () 대신 []로 사용하면 바로 익명reference를 생성 할 수 있다.

해쉬의 경우 $as={a=>”as”, b=>”bs”}; 와 같이 () 대신 {}로 사용하면 바로 익명 reference를 생성할 수 있다.

접근은 @{$as} 또는 %{$as} 등으로 할 수 있다.

배열의 reference의 경우 ${$as[0]} 와 같이 접근해야 할 경우가 있는데 귀찮으므로 $as->[0]으로 표기한다.

---

Subroutines

서브루틴은 C언어의 함수와 같은 것

sub asdf{

…

} 와 같이 정의하고 사용하면 된다.

하지만 정의보다 위쪽에서 호출이 되면 안되는데 이를 대비해 C언어처럼 먼저 선언만 해준다.

이는

asdf(); 로 할 수도

sub asdf; 로 할 수도 있고 두 개 이상인 경우

sub asdf; sub sdf; 와 같이할 수도 있고

use subs qw(asdf sdf); 와 같이 할 수도 있다.

sub routine 에 들어가는 변수들은 @_ 배열에 저장된다.

묵시적 return 값은 subroutine 마지막 행에 작성하면 된다.

명시적 return을 위해서는 subroutine안에 return $asd; 등으로 작성하면 된다.

sub의 실행속도를 높이기 위해 한번 계산한 값은 캐싱 하는 기법이 있는데

my %cache;

sub first_line {

my $filename=shift;

return $cache{$filename} if exists $cache{$filename};

open FILE, $filename or return “”;

my $line=<FILE>;

$cache{filename}=$line;

return $line;

}

과 같다.

함수 오버로딩이 가능한데

함수 내에서 리턴 타입을 판별할 수도 있다.

subroutine 내부에서 wantarray 라는 함수를 호출하면 array형의 return인지 아닌지를 판별해준다.

 

 

 

 

[출처] https://nzer0.wordpress.com/2010/12/06/perl-%EA%B8%B0%EB%B3%B8-%EB%AC%B8%EB%B2%95/