Thread Subroutine aus Variable (4 answers)
Opened by rc27 at 2013-06-26 09:39

rc27
 2013-06-26 10:30
#168591 #168591
User since
2013-06-18
14 Artikel
BenutzerIn
[default_avatar]
Ich bin jetzt schon etwas weiter. Beim Syntax fehlts noch ein bißchen. Wie bekommt man \&sub1 über die Ini in ein Array eingelesen, ohne das strict meckert.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
my @subs;

my $ini = 'test.ini';

use Config::IniFiles;

my $cfg = Config::IniFiles->new( -file => "$ini" ) 
||  die "Error: Probleme beim Lesen der Ini-Datei";

foreach ($cfg->Parameters('do')) {
	push (@subs, $cfg->val('do', $_ ));
}


foreach (@subs) {
	$_->();
}

sub1 ...


Code: (dl )
1
2
3
4
5
6
# test.ini

[do]
subroutine = sub1
subroutine = sub2
subroutine = sub3


Direkt zugewiesen funktioniert es, nur eben nicht dynamisch über die ini.

Code: (dl )
1
2
3
4
5
6
7
8
9
my $test = "sub3";

my @subs1 = (\&sub1, \&sub2, \&$test);

push (@subs1, \&sub4);

foreach (@subs1) {
	$_->();
}

Last edited: 2013-06-26 10:37:57 +0200 (CEST)

View full thread Subroutine aus Variable