Thread regex für Umlaute (de, en, fr): Geht das auch besser? (46 answers)
Opened by Alex at 2004-12-26 00:24

Alex
 2004-12-26 22:57
#3901 #3901
User since
2003-12-04
285 Artikel
BenutzerIn
[default_avatar]
So, mein "Modul" steht und es tut was ich will. :p
(Noch) nicht OOP - das kann ich (noch) nicht. Nächste Version...
Hier könnt Ihr kucken (Die Hashes habe ich gekürzt!):
Code (perl): (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
57
58
59
60
61
62
63
64
65
66

package sprache;

use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
use vars qw(%deutsch %englisch %franzoesisch);
use HTML::Entities;

require 5.004;
require Exporter;
@ISA = qw(Exporter);

@EXPORT = qw(g_w);
@EXPORT_OK = qw(%deutsch %englisch %franzoesisch);

$VERSION = '0.01';

require HTML::Entities;

#################################################
# D E U T S C H
my %deutsch = (

#--[ N A V I G T I O N ]-------------------------

        home      &n
bsp;     =>    'Startseite',
        forum      &
nbsp;     =>    'Kontaktforum',
        kontakt     &nbsp
;      =>    'Kontakt',
        empfehlen     &nb
sp;  =>    'Empfehlen',
        impressum     &nb
sp;  =>    'Impressum',
        spiel      &
nbsp;     =>    'Spiel',

#--[ B U T T O S ]-------------------------

        submit      
      =>    'Absenden',
        reset            =>    'Löschen',
        
);
#################################################
# E N G L I S C H
my %englisch = (
        
);
#################################################
# F R A N Z O E S I S C H
my %franzoesisch = (
    
);

sub g_w { # g_w steht fuer get_wor(t/d)

    my ($sprache, $wort) = @_;
    if ($sprache eq "deutsch") { return encode_entities($deutsch{$wort}) }
    elsif ($sprache eq "englisch") { return encode_entities($englisch{$wort}) }
    elsif ($sprache eq "franzoesisch") { return encode_entities($franzoesisch{$wort}) }
    else {die qq(Konnte Sprachdatei nicht oeffnen: $!)}

}# g_w

1;

Ist das so richtig? Oder kann da noch eine ganze Menge Mist raus?

Mir ist deutlich aufgefallen, dass es wirklich länger dauert (und das lokal!) als die Hashversion vorhin, owohl ich da immer alles durch HTML::Entities gejagt habe. Aber pktm hat mir ja schon was zu bench gepostet. Gleich ein Frage: Wo exakt muss der untere benchcodeteil stehen? Am ende des scriptes, oder in der sub wo dann die Ausgabe gemacht wird? Werde ich gleich ausprobieren...
<center>Schönen Gruß, Alex
Mit dem Computer geht alles viel schneller - es dauert nur ein bißchen länger!</center>

View full thread regex für Umlaute (de, en, fr): Geht das auch besser?