C++ 从c++；到perl

我有一个不寻常的问题，这里没有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;
 }

#包括
双端，tmp；智力测验；
内部主（空）{
扫描频率（“%d”和测试）；
对于（int i=0；i而言，以下代码大致相当于您的代码：

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

my $dividend = 0;

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

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

my$divisior=；
chomp$除数；
我的美元红利=0；
而（）{
my（$ignore1，$ignore2，$term）=拆分；
chomp$term；
$股息+=$期限；
}
打印（$被除数/$除数）。$/）；

当然，它不会检查输入是否正确（除零或类似内容），但原始代码也不会检查。
“聊天室”：#perl MagNET帮助
irc://irc.perl.org/perl-help