Mercurial > boosterpack

view filter.pl @ 8:8c6d2ce90677 boosterpack

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r11] saving for transference to cd
author rlm
date Fri, 19 Mar 2010 07:28:10 -0400
parents d7dd496a4fa6
children
line wrap: on
line source
     1 #!/usr/bin/perl



     2 



     3 sub filter



     4 {



     5 



     6 	$ref = shift;



     7 	@list = @_;



     8 	my @ret = ();



     9 	



    10 	for $element(@list)



    11 	{



    12 		if ($ref->($element))



    13 		{



    14 			push @ret, $element;



    15 		}



    16 	}



    17 



    18 	return @ret



    19 	



    20 }



    21 



    22 



    23 



    24 



    25 @test = (1,2,3,4,5,6);



    26 



    27 sub even



    28 {



    29 	return ($_[0]%2 == 0);



    30 }



    31 



    32 @rr = &filter(\&even, @test);



    33 



    34 print "@rr";