는 방법을 찾기 위해 최소한에서는 Perl 배열

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

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

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

▶ Run
#!/usr/bin/perl

use List::Util qw(min);

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

print min(@arr);

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

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

배열의 요소가 없

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

▶ Run
#!/usr/bin/perl

use List::Util qw(min);

my @arr;

my $min = min(@arr);

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

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

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

일 경우에는 배열에 string

작업할 경우 기능으로 min 에서 라이브러리 List::Util 거기에 하나 있습니다. 실제로 min 반환하지 않습니다 최소한에서 숫자를 배열 요소의 보수 최소화합니다.

여기에는 예입니다. 결과 min(12, 'ABC', 44) 줄 것입니다 'ABC'. 이로 인해 발생하는 사실이 의 숫자 값을 문자열 'ABC' 로,제로에서 가장 작은 값이 배열입니다. 결과 min 은 요소의 숫자 값을 최소화합니다. 이 예제의 문자열 'ABC'.

또 다른 예입니다. 결과 min(10, 7, '4H') 줄 것입니다 '4H'.

공식적인 문서

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

  min
        my $num = min @list;

    Similar to "max" but returns the entry in the list with the lowest
    numerical value. If the list is empty then "undef" is returned.

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

다른 기사