는 방법을 찾기 위해 최대 펄에서 배열

작업입니다. In Perl,프로그램을 배열을 가지고 있습니다 @arr (첫 번째 세 글자를 말씀에서"array"). 를 찾을 필요가있는 최대 수입이 배열입니다.

최고의 방법이 이 문제를 해결하는 기능을 사용하려면 max 에서 라이브러리 List::Util. 라이브러리 List::Util 께서는 Perl,그래서 만약 당신이 Perl,이 라이브러리를 사용할 수 있을 추가로 설치하는 아무것도 아니다.

여기에는 예제 프로그램을 발견하고 표시합니다 최대의에서 배열을 포함하는 번호:

▶ Run
#!/usr/bin/perl

use List::Util qw(max);

my @arr = (1, 2, -100, 8, 0);

print max(@arr);

프로그램이 표시됩니다 숫자 8. (코드를 실행하려면 브라우저에서 ).

에 연결할 때 도서관 우리는 우리가 사용하는 것 기능 max: use List::Util qw(max);. 는 경우에 당신은 라이브러리에 연결합 use List::Util;,프로그램 오류를 생성할 것입니다 Undefined subroutine &main::max called at script.pl line 7..

배열의 요소가 없

는 경우에는 배열 요소가 없음 maxundef. 여기에 샘플 프로그램 는 다음과 같은 경우:

▶ Run
#!/usr/bin/perl

use List::Util qw(max);

my @arr;

my $max = max(@arr);

if (defined $max) {
    print $max;
} else {
    print "Empty array";
}

이 프로그램에서 우리의 결과 저장 기능 max 변수 결과가 없습 undef,우리가 추론 이 결과는 경우, undef,우리가 추 텍스트에서는 화면입니다.

여기서 우리는 결과를 확인 기능의 max,그러나 그것이 가능한 것 을 알 수가 배열의 요소 는 경우는 항목의 수가 0,다음을 수행할 필요가 무엇을 할 경우에는 빈 배열입니다.

일 경우에는 배열에 string

작업할 경우 기능으로 max 에서 라이브러리 List::Util 거기에 하나 있습니다. 실제로 max 익의 최대 개수에서 배열 요소의 보호는 최대이다.

여기에는 예입니다. 결과 max(-100, 'ABC', -4) 줄 것입니다 'ABC'. 이로 인해 발생하는 사실이 의 숫자 값을 문자열 'ABC' 로,제로에서 가장 큰 값을 배열, 그래서 결과는 요소으로 가장 높은 숫자 값입니다. 이 예제의 문자열 'ABC'.

또 다른 예입니다. 결과 max(1, 7, '10W') 줄 것입니다 '10W'.

공식적인 문서

여기에 조각의 출력 perldoc List::Util 일  에 대한 기능 max:

  max
        my $num = max @list;

    Returns the entry in the list with the highest numerical value. If the
    list is empty then "undef" is returned.

        $foo = max 1..10                # 10
        $foo = max 3,9,12               # 12
        $foo = max @bar, @baz           # whatever

다른 기사