Array 쪽 팁

 

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.