Subroutinen in Tabelle def. und aufrufen

[Kurt Z]

Hi

Naja vielleicht ist folgendes weniger allgemeines Beispiel für dich einfacher zu verstehen

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