Array 쪽 팁

perl 2008. 6. 7. 01:33

 

1. Array를 이용하여 Stack처럼 사용하기

 my @stack;
push(@stack, 7, 6, "go"); 
my $action = pop @stack; 
my $value = pop(@stack) + pop(@stack);    # 13이 나옴


 

 

2. Array를 Queue처럼 사용하기

 use strict;
my @queue;
unshift (@queue, "Customer 1");
unshift (@queue, "Customer 2");
unshift (@queue, "Customer 3");  # @queue안에 ("Customer 3" "Customer 2" "Customer 1") 존재

my $item = pop(@queue);         # @queue 에는 ("Customer 3" "Customer 2")
print "Servicing $item\n";       # 출력  Servicing Customer 1
$item = pop(@queue);            # @queue 에는 ("Customer 3")
print "Servicing $item\n";       # 출력  Servicing Customer 2

 

 

3. Array를 Array에 대입

@arr2 = @arr1[2..5];            # @arr 의 2번부터 5번까지 @arr2에 대입

@arr2 = ( @arr, $a, $b ); #   #@arr와 $a, $b를 합쳐 @arra2에 대입

( $name, $age, $home, $sex )  = @personal  # @personal의 값들을 각각의 변수에 대입

 

4.

'perl' 카테고리의 다른 글

반올림(또는 버림) 함수  (0) 2008.06.07
펄에서 List안에 List를 넣기 (또는 2차원 배열 array)  (0) 2008.06.07
Array 쪽 팁  (0) 2008.06.07
Array 다루기 #2  (0) 2008.06.05
Array 다루기 #1  (0) 2008.06.05
Passing Parameters to Functions  (0) 2008.06.05
Posted by 김용환 '김용환'

댓글을 달아 주세요