1.1 --- a/filter.pl	Thu Sep 10 08:01:18 2009 -0400
     1.2 +++ b/filter.pl	Fri Mar 19 07:28:10 2010 -0400
     1.3 @@ -1,32 +1,34 @@
     1.4 -sub filter
     1.5 -{
     1.6 -
     1.7 -	$ref = shift;
     1.8 -	@list = @_;
     1.9 -	my @ret = ();
    1.10 -	
    1.11 -	for $element(@list)
    1.12 -	{
    1.13 -		if ($ref->($element))
    1.14 -		{
    1.15 -			push @ret, $element;
    1.16 -		}
    1.17 -	}
    1.18 -
    1.19 -	return @ret
    1.20 -	
    1.21 -}
    1.22 -
    1.23 -
    1.24 -
    1.25 -
    1.26 -@test = (1,2,3,4,5,6);
    1.27 -
    1.28 -sub even
    1.29 -{
    1.30 -	return ($_[0]%2 == 0);
    1.31 -}
    1.32 -
    1.33 -@rr = &filter(\&even, @test);
    1.34 -
    1.35 -print "@rr";
    1.36 \ No newline at end of file
    1.37 +#!/usr/bin/perl
    1.38 +
    1.39 +sub filter
    1.40 +{
    1.41 +
    1.42 +	$ref = shift;
    1.43 +	@list = @_;
    1.44 +	my @ret = ();
    1.45 +	
    1.46 +	for $element(@list)
    1.47 +	{
    1.48 +		if ($ref->($element))
    1.49 +		{
    1.50 +			push @ret, $element;
    1.51 +		}
    1.52 +	}
    1.53 +
    1.54 +	return @ret
    1.55 +	
    1.56 +}
    1.57 +
    1.58 +
    1.59 +
    1.60 +
    1.61 +@test = (1,2,3,4,5,6);
    1.62 +
    1.63 +sub even
    1.64 +{
    1.65 +	return ($_[0]%2 == 0);
    1.66 +}
    1.67 +
    1.68 +@rr = &filter(\&even, @test);
    1.69 +
    1.70 +print "@rr";