Code in Hash dynamisch erweitern (solved) - #160134 (Allgemeines zu Perl)

murphy

2012-07-22 20:35

User since
2004-07-19
1776 articles
HausmeisterIn

Wirklich verändern lässt sich eine Codereferenz denke ich nicht ohne weiteres, aber man kann natürlich ganz einfach Closures verketten:

Code (perl): (dl )

use 5.012;
use warnings;

sub catsub {
  my @fs = @_;
  sub { map { $_->(@_) } @fs }
}

my %test = (
    code => sub {
        my $input = shift;
        say '[original]';
        if ($input eq 'h') { return 'hallo'; }
    },
);

$test{code} = catsub(
    $test{code},
    sub {
        my $input = shift;
        say '[erweiterung]';
        if ($input eq 's') { return 'sonne'; }
    },
    sub {
        say '[nix]';
        ();
    },
);

say $test{code}->('h');
say $test{code}->('s');

When C++ is your hammer, every problem looks like your thumb.