writing a function like map, sort, grep

[John]

Is there a way to write a function that ban be run like the
aforementioned ones, i.e.

Foo BLOCK LIST

I want to do this because I sometimes want LIST to be a real list, and
sometimes a function. I know there are other ways to do it, I was just
curious if something like this can be implemented easily.

TIA, John

 

[John]

Is there a way to write a function that ban be run like the
aforementioned ones, i.e.

Foo BLOCK LIST

I want to do this because I sometimes want LIST to be a real list, and
sometimes a function. I know there are other ways to do it, I was just
curious if something like this can be implemented easily.

TIA, John

I don't mean a function, I mean a CODE reference, which I could
determine inside Foo (hopefully).

 

[Gunnar Hjalmarsson]

Is there a way to write a function that ban be run like the
aforementioned ones, i.e.

Foo BLOCK LIST

You can use prototypes

sub Foo(&@)

 

[Matija Papec]

X-Ftn-To: John

Is there a way to write a function that ban be run like the
aforementioned ones, i.e.

Foo BLOCK LIST

I want to do this because I sometimes want LIST to be a real list, and
sometimes a function. I know there are other ways to do it, I was just
curious if something like this can be implemented easily.

It seems that it can, I saw some example using prototypes,

sub apply (&@) {
my $sub = shift;
$sub->() for my @ret = @_;
@ret;
}

print
$str = join "", apply {tr/abc/def/; s/d/123/g} qw/jen dva/;

 

[Ben Morrow]

You can use prototypes

sub Foo(&@)

Note that this will *not* allow the foo EXPR, LIST usage of map, grep,
nor the named or missing sub of sort (as is reflected by the fact that
prototype returns undef for all of these).

Ben