Opened by Tino at 2014-06-08 23:37
User since
2014-06-08
8 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2014-06-08
8 Artikel
BenutzerIn
Hallo,
ich danke dir. Ich habe gestern Abend noch ein bisschen gelesen, zugegeben ist dies mein ersten Perl "Programm", bisher war ich auf PHP fixiert. Der Umstieg von PHP auf Perl ist angenehm, wäre anders herum aber sicherlich etwas einfacher gewesen.
Meine Lösung sieht nun wie folgt aus:
Danke an alle freundlichen Helfer.
Last edited: 2014-06-09 10:45:12 +0200 (CEST)
ich danke dir. Ich habe gestern Abend noch ein bisschen gelesen, zugegeben ist dies mein ersten Perl "Programm", bisher war ich auf PHP fixiert. Der Umstieg von PHP auf Perl ist angenehm, wäre anders herum aber sicherlich etwas einfacher gewesen.
Meine Lösung sieht nun wie folgt aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
my %vars = {};
my $tt = Template->new({
ABSOLUTE => 1,
VARIABLES => {
stylesheet => $Color,
title => $Title,
loginid => $username,
userid => $userid,
lang => $sesslang,
},
});
# Sprache einbinden
for (keys %lang) {
#print "Add $_ with $lang{$_}{$sesslang} for Sessionlang $sesslang <br>";
$vars{"lang_$_"} = $lang{$_}->{$sesslang};
}
[...]
$tt->process($Template, \%vars ) || die "Template process failed: ", $tt->error(), "\n";Danke an alle freundlichen Helfer.
Last edited: 2014-06-09 10:45:12 +0200 (CEST)