從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++代碼。 如何用perl寫這樣的東西？我的意思是如何讀取字符串並忽略它，以及如何讀取雙數並輸出它們。謝謝你的幫助。

Answer 1

下面的代碼大致相當於你：

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

my $dividend = 0; 

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

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

這當然正確輸入，除以零或類似的東西不檢查的，但同樣沒有原代碼。