펄 배열

Perl 배열은 스칼라 값을 저장하는 목록 변수입니다. 변수는 다양한 유형일 수 있습니다.

배열 변수는 @로 시작합니다. 배열 요소에 접근하려면 $ + 변수 이름 + [인덱스 값] 형식을 사용하여 읽어 옵니다.

예

#!/usr/bin/perl @hits = ( 25 , 30 , 40 ) ; @names = ( " google " , " codercto " , " taobao " ) 인쇄 ; " $ hits[0] = $hits [0] n " ; 인쇄 " $ hits[1] = $hits [1] n " ; 인쇄 " $ 히트[2] = $히트 [2] n " ; 인쇄 " $ 이름[0] = $names [0] n " ; 인쇄 " $ 이름[1] = $names [1] n " ; 인쇄 " $ 이름[2] = $names [2] n " ;

프로그램에서 $ 기호는 로 이스케이프되어 그대로 출력될 수 있습니다.

 $hits[0] = 25$hits[1] = 30$hits[2] = 40$names[0] = google$names[1] = codercto$names[2] = taobao

배열 생성

배열 변수는 @ 기호로 시작하고 요소는 괄호 안에 배치됩니다. qw 로 시작하는 배열을 정의할 수도 있습니다.

 @array = (1, 2, '안녕하세요');@array = qw/이것은 배열입니다/;

두 번째 배열은 공백으로 구분된 배열 요소가 있는 문자열 목록을 반환하는 qw// 연산자를 사용합니다. 물론 여러 줄을 사용하여 배열을 정의할 수도 있습니다.

 @days = qw/googletaobao...codercto/;

다음과 같이 인덱스별로 배열에 값을 할당할 수도 있습니다.

 $array[0] = '월요일';...$array[6] = '일요일';

배열 요소에 액세스

배열 요소에 접근하려면 $ + 변수 이름 + [인덱스 값] 형식을 사용하여 읽어 옵니다.

예

@sites = qw/ google taobao codercto / 인쇄 " $sites [0] n " ; 인쇄 " $sites [1] n " ; 인쇄 " $sites [2] n " ; 인쇄 " $sites [-1] n " ; 음수, 역방향으로 읽음

 googletaobaocoderctocodercto

배열 인덱스 값은 0부터 시작합니다. 즉, 0은 첫 번째 요소, 1은 두 번째 요소 등입니다.

음수는 역방향부터 읽습니다. -1은 첫 번째 요소, -2는 두 번째 요소입니다.

배열 시퀀스 번호

Perl은 순서대로 출력할 수 있는 배열 형식을 제공합니다. 형식은 시작 값 + .. + 끝 값 입니다.

예

#!/usr/bin/perl @ var_1 0 = ( 1 . .10 ) ; @ var_2 0 = ( 10 . .20 ) @var_abc = ( a .. z ) ; " @var_10 n " ; # 출력 1~10 인쇄 " @var_20 n " ; # 출력 10~20 인쇄 " @var_abc n " # a부터 z까지 출력

 1 2 3 4 5 6 7 8 9 1010 11 12 13 14 15 16 17 18 19 20a bcdefghijklmnopqrstuv wxyz

배열 크기

배열 크기는 배열 내의 스칼라 컨텍스트에 따라 결정됩니다. :

 @array = (1,2,3);print "배열 크기: ",scalar @array,"n";

배열 길이는 요소 수가 아닌 배열의 물리적 크기를 반환합니다. 다음 예를 볼 수 있습니다.

예

#!/uer/bin/perl @array = ( 1 , 2 , 3 ) ; $ array [ 50 ] = 4 ; $ size = @array ;​​​ " 배열 크기: $size n " ; 인쇄 " 최대 인덱스: $max_index n " ;

 배열 크기: 51 최대 인덱스: 50

출력에서 볼 수 있듯이 배열 요소는 4개뿐이지만 배열 크기는 51입니다.

배열 요소 추가 및 제거

Perl은 배열 요소를 추가하고 제거하는 데 유용한 몇 가지 기능을 제공합니다.

이전에 프로그래밍 경험이 없다면 함수가 무엇인지 물을 수도 있습니다. 사실 이전에 사용했던 print는 출력 함수입니다.

다음 표에는 배열에서 일반적으로 사용되는 작업 함수가 나열되어 있습니다.

일련번호	유형 및 설명
1	@ARRAY, LIST 푸시 배열의 끝에 목록의 값을 넣습니다.
2	팝 @ARRAY 배열의 마지막 값을 팝하고 반환합니다.
3	시프트 @ARRAY 배열의 첫 번째 값을 팝하고 반환합니다. 배열의 인덱스 값도 1씩 감소합니다.
4	@ARRAY, LIST를 이동 해제하세요. 목록을 배열 앞에 배치하고 새 배열의 요소 수를 반환합니다.

예

#!/usr/bin/perl #간단한 배열 만들기 @sites = ( " google " , " codercto " , " taobao " ) 인쇄 ; " 1. @ sites = @sites n " # 배열 끝에 요소를 추가합니다 . push ( @sites , " baidu " ) 인쇄​ " 2. @ sites = @sites n " # 배열의 시작 부분에 요소를 추가합니다 . unshift ( @sites , " 웨이 보 " ) 인쇄 " 3. @ sites = @sites n " # 배열 끝의 요소를 삭제합니다 . 팝 ( @sites ) ;​ " 4. @ sites = @sites n " # 배열의 시작 부분에서 요소를 제거합니다 . 시프트 ( @sites ) ;​ " 5. @ 사이트 = @sites n " ;

배열 자르기

배열을 잘라낸 후 새 배열을 반환할 수 있습니다.

예

#!/usr/bin/perl @sites = qw/ google taobao codercto weibo qq facebook Netease / ; @sites2 = @sites [ 3 , 4 , 5 ] 인쇄 " @sites2 n " ;

 웨이보qq 페이스북

배열 인덱스는 유효한 인덱스 값을 지정해야 합니다. 이 값은 양수 뒤에 음수가 올 수 있습니다. 각 인덱스 값은 쉼표로 구분됩니다.

연속 인덱스인 경우 ..를 사용하여 지정된 범위를 나타낼 수 있습니다.

예

#!/usr/bin/perl @sites = qw / google taobao codercto weibo qq facebook Netease / ; @sites2 = @sites [ 3 .5 ] ; " @sites2 n " ;

 웨이보qq 페이스북

배열 요소 바꾸기

splice() 함수는 Perl에서 배열 요소를 바꾸는 데 사용됩니다. 구문 형식은 다음과 같습니다.

 @ARRAY, OFFSET [ , 길이 [ , LIST ] ] 연결

매개변수 설명:

@ARRAY: 교체할 어레이입니다.

오프셋: 시작 위치.

LENGTH: 교체할 요소의 수입니다.

LIST: 대체 요소 목록입니다.

다음 예에서는 6번째 요소부터 시작하여 배열의 5개 요소를 바꿉니다.

예

#!/usr/bin/perl @nums = ( 1 . .20 ) ; 인쇄 " 교체 전 - @nums n " ; splice ( @nums , 5 , 21 . .25 ) ; " 교체 후 - @nums n " ;

 교체 전 - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 교체 후 - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

문자열을 배열로 변환

Perl에서 문자열을 배열로 변환하려면 분할() 함수를 사용하십시오. 구문은 다음과 같습니다.

 분할 [ 패턴 [ , EXPR [ , 제한 ] ] ]

매개변수 설명:

패턴: 구분 기호, 기본값은 공백입니다.

EXPR: 문자열 수를 지정합니다.

LIMIT: 이 매개변수를 지정하면 배열의 요소 수가 반환됩니다.

예

#!/usr/bin/perl #문자열 정의 $var_test = " codercto " ; $var_string = " www-codercto-com " ; $var_names = " google,taobao, codercto ,weibo " ; @test = 분할 ( ' ' , $ var_test ) ; @string = 분할 ( ' - ' , $ var_string ) @names = 분할 ( ' , ' , $var_names ) ; " $test [3] n " # 출력 o 인쇄 " $string [2] n " # 출력 com 인쇄 " $names [3] n " # 웨이보 출력

 오콤웨이보

배열을 문자열로 변환

Perl에서는 Join() 함수를 사용하여 배열을 문자열로 변환합니다.

 EXPR, LIST에 가입하세요

매개변수 설명:

EXPR: 커넥터.

LIST: 목록 또는 배열입니다.

예

#!/usr/bin/perl #문자열 정의 $var_string = " www-codercto-com " ; $var_names = " google ,taobao,codercto,weibo " # 문자열을 배열로 변환 @string = Split ( ' - ' , $var_string ) ; @names = Split ( ' , ' , $var_names ) # 배열을 문자열로 변환 ; $string1 = 조인 ( ' - ' , @끈 ) ; $string2 = 조인 ( ' , ' , @이름 ) ;​ " $string1 n " ; 인쇄 " $string2 n " ;

 www-codercto-comgoogle,타오바오,codercto,웨이보

배열 정렬

Perl의 배열 정렬은 sort() 함수를 사용하며 구문은 다음과 같습니다.

 [서브루틴] 목록 정렬

매개변수 설명:

서브루틴: 규칙을 지정합니다.

LIST: 목록 또는 배열입니다.

예

#!/usr/bin/perl #배열 정의 @sites = qw( google taobao codercto facebook ) 인쇄 " 정렬 전: @sites n " # 배열 정렬 @sites = 정렬 ( @sites ) ;​ " 정렬 후: @sites n " ;

 정렬 전: google taobao codercto facebook 정렬 후: facebook google codercto taobao

참고: 배열 정렬은 ASCII 숫자 값을 기반으로 합니다. 따라서 배열을 정렬할 때는 정렬하기 전에 각 요소를 소문자로 변환하는 것이 가장 좋습니다.

특수 변수: $[

특수 변수 $[는 배열의 첫 번째 인덱스 값을 나타내며 일반적으로 0입니다. $[를 1로 설정하면 배열의 첫 번째 인덱스 값은 1이고 두 번째 인덱스 값은 2가 됩니다. 예는 다음과 같습니다:

예

#!/usr/bin/perl #배열 정의 @sites = qw( google taobao codercto facebook ) 인쇄 " 웹사이트: @sites n " ; # 배열의 첫 번째 인덱스를 1로 설정합니다 . $ [ = 1 ; " @ 사이트[1]: $sites [1] n " ; 인쇄 " @ 사이트[2]: $sites [2] n " ;

 웹사이트: google taobao codercto facebook@sites[1]: google@sites[2]: taobao

일반적으로 특수 변수 $[ 사용을 권장하지 않습니다. Perl의 새 버전에서는 이 변수가 사용되지 않습니다.

배열 병합

배열의 요소는 아래와 같이 쉼표로 구분되어 배열을 병합할 수도 있습니다.

예

#!/usr/bin/perl @numbers = ( 1 , 3 , ( 4 , 5 , 6 ) ) 인쇄​ " 숫자 = @숫자 n " ;

 숫자 = 1 3 4 5 6

하나의 배열 내에 여러 개의 배열을 삽입하고 이를 기본 배열로 병합하는 것도 가능합니다.

예

#!/usr/bin/perl @odd = ( 1 , 3 , 5 ) ; @even = ( 2 , 4 , 6 ) ; @numbers = ( @odd , @even ) ;​ " 숫자 = @숫자 n " ;

 숫자 = 1 3 5 2 4 6

목록에서 요소 선택

목록은 아래와 같이 목록이 지정된 요소를 읽을 수 있게 된 뒤에 인덱스 값을 지정하여 사용할 수 있습니다.

예

#!/usr/bin/perl $var = ( 5 , 4 , 3 , 2 , 1 ) [ 4 ] ; 인쇄 " var의 값은 = $var n "

 var의 값은 = 1입니다.

마찬가지로 배열에서 ..를 사용하여 지정된 범위의 요소를 읽을 수 있습니다.

예

#!/usr/bin/perl @list = ( 5 , 4 , 3 , 2 , 1 ) [ 1 .3 ] ;​​ " 목록 값 = @list n " ;

 목록의 값 = 4 3 2