fork download 
  1. perl -lane 'if($.==1)
  2. {
  3. @a=@F[2..(scalar(@F)-1)] 
  4. }
  5. else
  6. {
  7. @a = map { $a[$_] + $F[$_+2] } 0..$#a;
  8. }
  9. END{for($i=0;$i<scalar(@a);$i++ ){print "Test".($i+1).":".$a[$i]/$.}}'
Success #stdin #stdout 0.03s 5304KB
comments (?)
stdin 
a b 10 1000 100
a b 10 1000 100
a b 10 1000 100
a b 10 1000 100
stdout 
Test1:10
Test2:1000
Test3:100
https://ideone.com/fYwNBO
language:
Bash (bash 5.0.3)
created:
12 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!