Perl 서브 루틴을 사용하는 숫자의 최대, 최소, 평균

Question

내 질문에 Perl : 값 목록을 허용하는 서브 루틴으로 Perl 스크립트를 작성하고 호출 프로그램에 가장 큰 값, 가장 작은 값 및 평균값을 반환합니다.

#!/usr/bin/perl 

sub large_and_small { 
    my (@numbers); 
    @numbers = @_; 

    my ($small, $large); 
    $large = $numbers[0]; 
    $small = $numbers[0]; 

    foreach my $i (@numbers) { 

     if ($i > $large) {   

      $large = $i; 
     }   
     elsif ($i < $small) { 

      $small = $i; 
     } 
    } 
    return ($small, $large); 
} 

sub avg { 
    my ($avg); 
    my ($total); 

    foreach (@test_array) { 

     $total += $_; 
    } 
    $avg = $total/scalar @test_array; 
    return $avg; 
} 

my (@test_array, @ret); 
@test_array = (15, 5, 7, 3, 9, 1, 20,1 3, 9, 8, 15, 16, 2, 6, 12, 90); 
@ret = large_and_small(@test_array); 
print "The Largest value is ", $ret[1], "\n"; 
print "The Smallest value is ", $ret[0], "\n"; 
print "The Average value is", avg(@test_array), "\n"; 

내가 얻고 출력은 다음과 같습니다

The Largest value is 90 
The Smallest value is 1 
Illegal division by zero at /tmp/135044395416028.pl line 59. 

어디 스크립트에서 잘못된 것입니까? 제발 도와주세요. 미리 감사드립니다.

Answer 1

평균 절차에서는보아야 할 것으로 생각되는 @test_array이 표시되지 않습니다. 대신 빈 배열이 표시됩니다.

재 작성 avg 다음과 작동합니다 같이

sub avg { 
    my @test_array = @_; 
    my ($avg); 
    my ($total); 
    # ... 
} 

Answer 2

avg의 인수를 읽지 않습니다. 또한 동시에 선언과 과제를 몇 가지 변수를 저장 할 수

my @test_array = @_; 

추가 : 당신은 왜 스칼라로 나누어 여기에

$avg = $total/scalar @test_array; 

divisionby 제로가처럼

sub large_and_small { 
    my @numbers = @_; 
    my ($small, $large) = @numbers[0, 0]; 

    foreach my $n (@numbers) { 
     if ($n > $large) { 
      $large = $n; 
     } 
     elsif ($n < $small) { 
      $small = $n; 
     } 
    } 
    return ($small, $large); 
} 

sub avg { 
    my @numbers = @_; 
    return unless @numbers; # Prevent Division by zero 
    my $total; 
    foreach (@numbers) { 
     $total += $_; 
    } 
    return $total/@numbers; 
} 

Answer 3

가 보이는 ?

Answer 4

테스트 배열은 main에서 lexical로 선언되고 함수에서 직접 사용됩니다. 함수에 전달되어야하거나 권고되지 않은 어휘를 제거해야합니다.

Answer 5

I 조언 당신은 핵심 모듈을 사용 List::Util, 그것은 당신이 최소, 최대, 합계로 구현하는 것이 모든 기능을 가지고있다.

#!/usr/bin/perl 

use strict; 
use List::Util qw(min max sum); 

my @test_array = (15, 5, 7, 3, 9, 1, 20, 13, 9, 8, 15, 16, 2, 6, 12, 90); 
my $min = min(@test_array); 
my $max = max(@test_array); 
my $avg = scalar @test_array 
     ? (sum(@test_array)/(scalar @test_array)) 
     : 0; 

print "The Largest value is ", $max, "\n"; 
print "The Smallest value is ", $min, "\n"; 
print "The Average value is ", $avg, "\n";