Переход с 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) . $/ );

Он, конечно, не проверяет правильность ввода, делит на ноль или что-то в этом роде, но и оригинальный код не делает.