c++ - 从 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 编写这样的东西？我的意思是如何读取字符串并忽略它以及如何读取 double 并输出它们。

Answer 1

以下代码与您的代码大致相同:

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

my $dividend = 0;

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

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

它当然不会检查正确的输入、除以零或类似的东西，但原始代码也不会。