in reply to Re: CPAN module fior common idioms?
in thread CPAN module fior common idioms?
I agree with you, but you got me thinking. How about this:
The only shortcomings I can find are that sub NAME (&&@) won't allow you to call NAME { CODE } { CODE } LIST, only the first code block can be a bare block, and I can't thing of an effective way to combine the two into a single function like sort.#usage: @result = st_complex sub { complex comparison }, sub { transfo +rm }, LIST sub st_complex (&&@) { my $compare = shift; my $transform = shift; map { $_->[-1] } sort $compare map { [ $transform->(), $_ ] } @_; } #usage: @result = st_simple sub { transform }, LIST #note: comparison is string wise. sub st_simple (&@) { my $transform = shift; &st_complex(sub { $a->[0] cmp $b->[0] }, $transform, @_); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: CPAN module fior common idioms?
by ihb (Deacon) on Jul 24, 2004 at 02:49 UTC |
In Section
Seekers of Perl Wisdom