从c++到perl的转换

Changing from c++ to perl

本文关键字：转换 perl c++      更新时间：2023-10-16

我有一个不寻常的问题，没有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中编写这样的东西?我的意思是如何读取字符串并忽略它以及如何读取双精度数并输出它们

下面的代码大致相当于您的代码:

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

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

相关文章：