1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/Filter.pm	Fri Mar 19 07:28:10 2010 -0400
     1.3 @@ -0,0 +1,28 @@
     1.4 +#!/usr/bin/perl
     1.5 +
     1.6 +package Filter;
     1.7 +use base 'Exporter';
     1.8 +our @EXPORT = ('filter');
     1.9 +
    1.10 +
    1.11 +sub filter
    1.12 +{
    1.13 +
    1.14 +	$ref = shift;
    1.15 +	@list = @_;
    1.16 +	my @ret = ();
    1.17 +	
    1.18 +	for $element(@list)
    1.19 +	{
    1.20 +		if ($ref->($element))
    1.21 +		{
    1.22 +			push @ret, $element;
    1.23 +		}
    1.24 +	}
    1.25 +
    1.26 +	return @ret
    1.27 +	
    1.28 +}
    1.29 +
    1.30 +
    1.31 +1;