C++에서 perl로 바꾸기

Question

나는 이상한 문제가있다. perl 채팅방이 없기 때문에 여기서 약간의 질문을하기로했다.

#include<cstdio> 

double end,tmp; int test; 

int main(void) { 
    scanf("%d",&test); 
    for(int i=0;i<test;i++) 
    { 
     scanf("%*s%*s%lf",&tmp); 
     end+=tmp; 
    } 
    end/=(double)test; 
    printf("%.2lf",end); 
    return 0; 
} 

이 작은 C++ 코드가 있습니다. 펄과 같이 쓰는 방법은? 문자열을 읽고 무시하는 방법과 이중 숫자를 읽고 출력하는 방법을 의미합니다. 어떤 도움을 주셔서 감사합니다.

my $divisor = <STDIN>; 
chomp $divisor; 

my $dividend = 0; 

while (<STDIN>) { 
    my ($ignore1, $ignore2, $term) = split; 
    chomp $term; 
    $dividend += $term; 
} 

print(($dividend/$divisor) . $/); 

이 같은 제로 또는 아무것도에 의해 적절한 입력, 격차를 확인하지 않습니다 물론, 그러나 어느 쪽도 원래의 코드를하지 않습니다 :

Answer 1

다음 코드는 당신과 거의 동일합니다.