PERL 변수 선언 및 특이 표현

3개의 변수에 대해서 초기화

my ($valid, $total, $request) = (0, 0, 0); 해시 변수 초기화

my %persons = (); 배열 초기화

my @array1 = ( 1, 2, 3, 4, 5, 6, 7, 8, 9);

my @array2 = ( 1..9);

특이표현1 : 배열 개수

scalar @{$persons{$a}} <-배열개수 특이표현2 : 대소 비교 연산자

<=> 비교연산자 리턴값 : -1, 0, 1