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) . $/ );

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

从c ++改为perl

1 个答案: