perl--用一组数字作为参数返回所有大于平均值的数

发布时间：2020-12-16 00:24:15 所属栏目：大数据来源：网络整理

导读：看到的记录一下 #!/usr/bin/perl?-w? use?strict;? sub?total{? ?my?$a;? foreach(@_){? ?$a+=$_;? }? ?$a;? }? ? sub?average{? ?total(@_)/@_;? }? ? sub?above_average{? ?my?($b,@e);? ?$ b =average(@_);? ?foreach(@_){? ?push?@e,$_?if($_ $b);? }? ?

看到的记录一下

 
 
#!/usr/bin/perl?-w?
  
  use?strict;?
  
  sub?total{?
  
  ?my?$a;?
  
  foreach(@_){?
  
  ?$a+=$_;?
  
  }?
  
  ?$a;?
  
  }?
  
  ?
  
  sub?average{?
  
  ?&total(@_)/@_;?
  
  }?
  
  ?
  
  sub?above_average{?
  
  ?my?($b,@e);?
  
  ?$b=&average(@_);?
  
  ?foreach(@_){?
  
  ?push?@e,$_?if($_>$b);?
  
  }?
  
  ?@e?
  
  }?
  
  ?
  
  my?@c=(1..10);?
  
  print?&above_average(@c);?
  
  执行输出如下?
  
  [root@nagios?perl]#?perl??ex43?
  
  678910?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

perl--用一组数字作为参数 返回所有大于平均值的数

perl--用一组数字作为参数返回所有大于平均值的数