를 표시하는 방법 Perl 배열

배열이 하나의 기본적인 데이터 구조에서는 Perl 프로그래밍 언어입니다. 에 배열 요소는 다른 종류의 수 있습니다.

때때로 당신은 당신을 가져올 필요가 배열의 펄습니다. 거기에 여러가지 방법이 있다.

사용 join()

종종 가장 좋은 방법을 파생하는 값에서 Perl 배열에서 화면을 사용하는 것 기능 join(). 기능을 사용하여 join() 문자열을 만들기 위해서는 배열의 값,그리고 다음 이 문자열입니다. 예를 들어 다음과 같습니다.

▶ Run
#!/usr/bin/perl

my @arr = (1, 20, 'asdf', 100);

print join(', ', @arr);

우리는 식별 배열 @arr 에서 배치되는 몇 가지의 숫자 및 문자열이며,다음 사용 join(', ', @arr) 우리가 만든 문자열을 사용하여 print 그것을 가져왔다. 이 코드의 결과: 1, 20, asdf, 100. 이 방법은 좋은 무엇 때문에 그것은 분명하다.

사용 Data::Dumper

때로는 그것은 필요한 구조에 대해 살펴보는 데이터의 변수에 저장됩니다. 맞는 라이브러리 Data::Dumper. 이 라이브러리와 함께 제공 Perl, 별도로 그것이 넣지 마십시오. 사용 Data::Dumper 당신은 무엇을 볼 수 있는 변수입니다. 여기에는 예제 코드에 대한 정보를 표시하는 배열:

▶ Run
#!/usr/bin/perl

use Data::Dumper;

my @arr = (1, 20, 'asdf', 100);

print Dumper \@arr;

출력 프로그램의:

$VAR1 = [
          1,
          20,
          'asdf',
          100
        ];

사용 print

하지만 떨어져 사용하여 join() 또는 Data::Dumper 배열 화면에 철수를 사용하여 print:

▶ Run
#!/usr/bin/perl

my @arr = (1, 20, 'asdf', 100);

print @arr;

프로그램의 결과는:

120asdf100

당신이 볼 수 있듯이, print @arr 인쇄된 모든 배열 요소를 함께. 배열의 요소에 출력이 아닙니다. 때때로 이것은 당신이 필요하고 때로는 없습니다.

하지만 그 대신 이 방법 print @arr 종종 더 나은 명확하게 작성 print join('', @arr);. 기록 join() 더 읽기 쉬운 사람이다.

$,

있는 특별한 변수 $,,제어하는 print결합 배열의 요소에 출력된다. 예를 들어,당신은 보충할 수 있는 이전 예고 에 이 변수는 상징 ,.

▶ Run
#!/usr/bin/perl

$, = ',';

my @arr = (1, 20, 'asdf', 100);

print @arr;

프로그램를 표시하는 텍스트에서는 배열의 요소를 쉼표로 구분: 1,20,asdf,100.

$, 포함할 수 있지만 하나의 문자 하지만 몇 가지. 이 변수 을 할당 문자열 $, = ', ';,다음 출력 될 것입니다 좀 더 설명: 1, 20, asdf, 100.

는 경우는 변수 $, 할당하는 기호를 \n,다음 각각 배열의 요소가 표시됩 에는 별도의 라인:

▶ Run
#!/usr/bin/perl

$, = "\n";

my @arr = (1, 20, 'asdf', 100);

print @arr;

하지만 가장 자주하지 않는 것이 좋 변수를 사용 $,,고 기능을 사용하 join() 에서 순서를 명시적으로 수집하는 값에서 배열하는 문자열을 사용합니다. 문제로 변 $, 은 값을 할당할 수 있을 한 곳에서에서 프로그램 고 print 에 의해 영향을 받는 이 변수는 완전히 다른 장소의 프로그램입니다. 을 사용할 때 join() 설정을 나누는 즉시 분명하다. 또 다른 문제는 변수 는 사실에 영향을 미치는 모든 print 위치한 후에는 임무입니다.

ARRAY(0x561c66b32870)

때로는 당신이 입력한 Perl 배열하여 화면 당신은 라인을 볼 수 있 ARRAY(0x561c66b32870). 이 의미는 화면이 표시는 대신 배열을 참조하여 배열입니다. 다음 예제 코드는 표시 문자열은 다음과 같다:

▶ Run
#!/usr/bin/perl

my @arr = (1, 20, 'asdf', 100);
my $arr_ref = \@arr;

print $arr_ref;

표시하기 위해 배열에 스크린 또는 사용 Data::Dumper, 또는 역참조 링크를 대신 print $arr_ref; 쓰기 print @{$arr_ref};. 더 나은 아직,쓰기 print join('', @{$arr_ref});

관련 주제

다른 기사