Opened by Alex at 2004-12-26 00:24
User since
2003-12-04
285 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-12-04
285 Artikel
BenutzerIn
@pktm: danke nochmal für den Tipp das Ding funzt. Habe es jetzt so:
Ist das schön? Würdet Ihr das anders machen? Mich stört ein bißchen, daß %sprache global ist. Aber geht wohl nicht anders... Muss erst wieder ein bißchen reinkommen...\n\n
<!--EDIT|Alex|1104085025-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
my %sprache;
sub Sprache {
use HTML::Entities;
use sprache;
my $gewaehlte_sprache = "deutsch";
if ($gewaehlte_sprache eq "deutsch") {%sprache = sprache::deutsch()}
elsif ($gewaehlte_sprache eq "englisch") {%sprache = sprache::englisch()}
elsif ($gewaehlte_sprache eq "franzoesisch") {%sprache = sprache::franzoesisch()}
else {die qq(Konnte Sprachdatei nicht oeffnen: $!)}
# Umlaute und Sonderzeichen mit HTML::Entities in HTML-Schreibweise ersetzen
foreach my $key (keys %sprache) {
$sprache{$key} = encode_entities($sprache{$key});
}# foreach
}# Ende (sub Sprache)
Ist das schön? Würdet Ihr das anders machen? Mich stört ein bißchen, daß %sprache global ist. Aber geht wohl nicht anders... Muss erst wieder ein bißchen reinkommen...\n\n
<!--EDIT|Alex|1104085025-->
<center>Schönen Gruß, Alex
Mit dem Computer geht alles viel schneller - es dauert nur ein bißchen länger!</center>
Mit dem Computer geht alles viel schneller - es dauert nur ein bißchen länger!</center>