grep在perl中的使用

  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