Thread Funktionen aus Modul parsen
(6 answers)
Opened by rosti at 2012-03-01 18:46
schneller verhindert doppeltes compilieren:
Code (perl): (dl
)
1 2 3 4 5 6 7 if(exists $mh{$sub}){ # aus der Source den Code erzeugen und ausführen if(ref($mh{$sub} ne 'CODE')){ $mh{$sub}=eval "sub{$mh{$sub}}"; } return $mh{$sub}->(@_); } Last edited: 2012-03-02 17:39:58 +0100 (CET) |