perl을 사용하여 평균값을 계산하십시오.

Question

평균값을 입력하도록 사용자에게 요청하여 평균값을 계산하는 프로그램을 작성할 수 있습니까?

세 개의 숫자의 평균을 계산하는 펄 스크립트를 작성했습니다.

대신 내가 오히려 터미널에서 세 개의 숫자를 입력하라는 메시지가 내가 변수로 입력 번호의 내 코드 컴퓨팅 평균의

#usr/bin/perl 
use strict; 
use warnings; 

my $a; #variable declaration 
my $b; #variable declaration 
my $c; #variable declaration 
my $avg; #variable declaration 
my $x; #variable declaration 
my $y; #variable declaration 
my $z; #variable declaration 
my $results; #variable declaration 
my $number; #variable declaration 

$a = 2; #number 1 
$b = 6; #number 2 
$c = 7; #number 3 

$avg = avg($a,$b,$c); #Three variables to be averaged 

    sub avg { 
    ($x,$y,$z) = @_; #Store variables in array 
    $results = ($x+$y+$z)/3; #Values stored added, and divided for average 
    return $results; #return value 

      } 

    print "$avg\n"; 
    exit; 

이 평균화 될 : 여기 내 코드입니다.

print STDOUT "Enter a number: \n"; 
$averages = <STDIN>; 
print "The Average is $averages.\n"; 

내가 그것을이 제대로 내 코드에 구현 될 수있는 방법을 아무것도 출력하지 않습니다 내 코드에 이것을 추가 할 때 : 당신과 같이 몇 가지 코드를 구현해야 그런 식으로 뭔가를 할 펄 알고.

Answer 1

보다 일반적인 솔루션 :

sub avg { 
    my $total; 
    $total += $_ foreach @_; 
    # sum divided by number of components. 
    return $total/@_; 
} 

당신이 평균있어 얼마나 많은 항목을 당신이 상관 없어 그런 식으로. avg()에 나와 있습니다.

다음 단계는 입력 내용을 읽는 것입니다. 당신은 할 수있는이 같은 <> 연산자 :

my @input; 
print "Enter a few numbers...\n"; 
while(<>) { 
    chomp; 
    while(m/([\d.-])/g) { 
     push @input, $1; 
    } 
} 
local $" = ', '; 
print "The average of [@input] is ", avg(@input), "\n"; 

그리고 우리는 입력의 세트를 인쇄하고, 호출하고 avg()를 인쇄하여 모두 함께 넣어 끝에

.

정규 표현식은 입력 문자열에서 숫자가 모호하게 보이는 부분을 추출합니다. 숫자 유효성 검사기와는 다릅니다.

Answer 2

#!/usr/bin/perl 
use warnings; 
use strict; 

my $sum = 0; 
my $n = 0; 
while (<>) { 
    $sum += $_; 
    $n++; 
} 
print $sum/$n, "\n"; 

간단히 요약하면 항목 수를 합산하고 추적하여 평균을 계산합니다. while (<>)은 명령 행에 지정된 파일 또는 STDIN에서 마술로 읽습니다 (프로그램이 대화식 일 경우에만 while (<STDIN>)을 사용하는 것이 좋습니다). 첫 번째 단계가 될 수 평균을 계산