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
Hallo,
Das Ding, daß ich baue soll multilingualen Betrieb Unterstützen. Der %sprache wird sehr groß (k. A. -> ca. 500(?) Werte) werden. Die sprache.pm soll von "nichtHTMLern" befüllt werden.
1) Gibt es eine vernünftigere Methode (als wie unten alles mit foreach abzuklappern) die Umlaute in den etnsprechenden Werten in HTML-Schreibweise umzuwandeln?
2) Habt Ihr eine vollständige Liste für "Umlaute" der verschiedenen Sprachen und deren HTML-Schreibweise?
Danke für's Helfen.
Edit: Smilies aus!\n\n
<!--EDIT|Alex|1104015739-->
Das Ding, daß ich baue soll multilingualen Betrieb Unterstützen. Der %sprache wird sehr groß (k. A. -> ca. 500(?) Werte) werden. Die sprache.pm soll von "nichtHTMLern" befüllt werden.
1) Gibt es eine vernünftigere Methode (als wie unten alles mit foreach abzuklappern) die Umlaute in den etnsprechenden Werten in HTML-Schreibweise umzuwandeln?
2) Habt Ihr eine vollständige Liste für "Umlaute" der verschiedenen Sprachen und deren HTML-Schreibweise?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
#!usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use sprache;
# Diese Info steht normal in der Datenbank...
my $gewaehlte_sprache = "deutsch";
my %sprache;
# Richtige Sprache benutzen...
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 in HTML-Schreibweise ersetzen...
#Deutsch
foreach my $key (keys %sprache) {
$sprache{$key} =~ s/ä/ä/g;
$sprache{$key} =~ s/ö/ö/g;
$sprache{$key} =~ s/ü/ü/g;
$sprache{$key} =~ s/Ä/Ä/g;
$sprache{$key} =~ s/Ö/Ö/g;
$sprache{$key} =~ s/Ü/Ü/g;
$sprache{$key} =~ s/ß/ß/g;
# Englisch ???
# Franzoesisch ???
}# foreach
_ _End_ _
#sprache.pm
#[...]
sub deutsch {
my %sprache = (
#--[ B U T T O N S ]------------------------
submit => 'Absenden',
reset => 'Löschen')
} #sub deutsch
#[...]
Danke für's Helfen.
Edit: Smilies aus!\n\n
<!--EDIT|Alex|1104015739-->
<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>