Opened by Alex at 2004-12-26 00:24
User since
2003-08-07
2921 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-07
2921 Artikel
BenutzerIn
Soweit ich das jetzt verstanden habe möchte Alex mit diesem Modul nur Entities encoden.
$lang können wir uns schenken, weil das Modul nicht nach Sprachen unterscheidet sondern einfach nur unkompliziert die Entities encoded.
Folglich:
a) copy&paste das Modul aus esskars Beitrag
b) lösche die beiden Methoden get und get_ashtml (sähe als getHtml sowieso viel schönder aus ^^)
c) lösche den %languages
d) copy&paste die Methode aus meinem Beitrag in das Modul (unten dran, aber vor das 1; (return 1; finde ich schöner, jedoch sind wir doch alle ein bischen schreibfaul :-) )
e) hab Spaß! (soll bedeuten: my $p = new Language; print $p->get(qw(öüä?&%$§"!^°)); )
Die Methode new ist übrigens der Konstruktor.
Der Konstruktor erzeugt eine Instanz der Objektklasse Language.
AKA: Man baut sich ein Objekt (->OOP) welches die Methoden (&get) aus deinem Modul enthält.
Witzigerweise sind in Perl Objekte quasi das Selbe wie Hashreferenzen, nur dass dieses "bless" dazu kommt (was man im übrigen nicht richtig übersetzen kann).
mfg pktm
Code: (dl
)
1
2
3
4
5
6
sub get
{
my ($self, $word) = @_;
return &HTML::Entities::encode_entities($word);
}
$lang können wir uns schenken, weil das Modul nicht nach Sprachen unterscheidet sondern einfach nur unkompliziert die Entities encoded.
Folglich:
a) copy&paste das Modul aus esskars Beitrag
b) lösche die beiden Methoden get und get_ashtml (sähe als getHtml sowieso viel schönder aus ^^)
c) lösche den %languages
d) copy&paste die Methode aus meinem Beitrag in das Modul (unten dran, aber vor das 1; (return 1; finde ich schöner, jedoch sind wir doch alle ein bischen schreibfaul :-) )
e) hab Spaß! (soll bedeuten: my $p = new Language; print $p->get(qw(öüä?&%$§"!^°)); )
Die Methode new ist übrigens der Konstruktor.
Der Konstruktor erzeugt eine Instanz der Objektklasse Language.
AKA: Man baut sich ein Objekt (->OOP) welches die Methoden (&get) aus deinem Modul enthält.
Witzigerweise sind in Perl Objekte quasi das Selbe wie Hashreferenzen, nur dass dieses "bless" dazu kommt (was man im übrigen nicht richtig übersetzen kann).
mfg pktm
http://www.intergastro-service.de (mein erstes CMS :) )