Opened by BrownWolf at 2003-12-16 01:41
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
so gar nicht; du kannst aus dem hauptprogramm nichts mit return zurueckgeben.
Entweder du packst es in eine subroutine, oder du weist es einer globalen Variablen zu, dann kannst du mit require arbeiten; sonst musst du einen anderen weg gehen:
hab's nicht getestet, aber vielleicht funktionierts...
Entweder du packst es in eine subroutine, oder du weist es einer globalen Variablen zu, dann kannst du mit require arbeiten; sonst musst du einen anderen weg gehen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
my $configFile = "config.dat";
my $config;
unless (open (FH, $configFile)) {
die "Error: can't open '$configFile': $!\n";
}
else {
local $/;
my $code = <FH>;
close (FH);
$code =~ s/^return\s*=>/\$config = /;
eval "$code";
die $@ if $@;
}
hab's nicht getestet, aber vielleicht funktionierts...
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/