Subroutinen in Tabelle def. und aufrufen

[Kurt Z]

Hi

ist Dein Beispiel echter Perl-Code oder Pseudo-Code?

ungeprüfter Perlcode, das dauert sonst zu lange

Bei mir läuft es nämlich so nicht (Syntax.-Errors).

... andererseits ist perlsyntax zu dicht um Edit-Fehler sofort visuell zu erkennen.

Du solltest ja auch was tun :-)

Naja try this

  
use strict;  
use warnings;  
$\="\n";  
  
sub pruef_es {  
 print "pruef_es(",@_,")";  
}  
  
sub pruef_es_auch {  
 print "pruef_es_auch(",@_,")";  
}  
  
  
#zuweisung  
my %pruef;  
$pruef{feld_1}=[\&pruef_es];  
$pruef{feld_2}=[\&pruef_es,\&pruef_es_auch];  
  
#aufruf  
for my $code_ref ( @{$pruef{feld_2}} ) {  
   $code_ref->('feld_1','paras');   # variante 2  
}  
  

OUTPUT:
pruef_es(feld_1paras)
pruef_es_auch(feld_1paras)

ciao
 Kurt