grep在perl中的使用

发布时间：2020-12-15 23:50:46 所属栏目：大数据来源：网络整理

导读：1 #!/usr/bin/perl 2 # 3 4 my @num=(1,2,4,8,16,32); 5 my @num_bigger_than10 = grep $_ 10,@num; 6 print join' ',@num_bigger_than10; 7 print "n"; 8 9 my @num_function = grep my_function($_),@num; 10 sub my_function { 11 my $input = shift; 12

  1 #!/usr/bin/perl 
  2 #
  3 
  4 my @num=(1,2,4,8,16,32);
  5 my @num_bigger_than10 = grep $_ > 10,@num;
  6 print join' ',@num_bigger_than10;
  7 print "n";
  8 
  9 my @num_function = grep my_function($_),@num;
 10 sub my_function {
 11     my $input = shift;
 12     return $input;
 13 }
 14 print join' ',@num_function;
 15 print "n";
 16 
 17

（编辑：李大同）

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