Zur Website

Start Buchtipp Noch mehr Lösungen und Tricks Kontakt Copyright Impressum







Perl Modul:

String HTML-kodieren

Vollständige oder
selbstbestimmte
Kodierung


Nr.19

©2004



Erläuterung:

Die Subroutine HTML_SONDERZ_HTML nimmte eine HTML-Kodierung der 96 wichtigsten, europäischen Sonderzeichen (von & bis ÿ) vor.

In der beiliegenden Datei PL0002.pm ist die Programmierung als eigenes Perl-Modul ausgeführt, lauffähig sowohl unter Linux/Perl als auch Windows/Active Perl.

Subroutine:

sub HTML_SONDERZ_HTML
{
my ($String) = $_[0];

$String =~ s/&/&/mg;
$String =~ s/¡/&iexl;/mg;
$String =~ s/¢/¢/mg;
$String =~ s/£/£/mg;
$String =~ s/¤/¤/mg;
$String =~ s/¥/¥/mg;
$String =~ s/¦/&brkbar;/mg;
$String =~ s/§/§/mg;
$String =~ s/¨/¨/mg;
$String =~ s/©/©/mg;
$String =~ s/ª/ª/mg;
$String =~ s/«/«/mg;
$String =~ s/¬/¬/mg;
$String =~ s/­/­/mg;
$String =~ s/®/®/mg;
$String =~ s/¯/&hibar;/mg;
$String =~ s/°/°/mg;
$String =~ s/±/±/mg;
$String =~ s/²/²/mg;
$String =~ s/³/³/mg;
$String =~ s/´/´/mg;
$String =~ s/µ/µ/mg;
$String =~ s/¶/¶/mg;
$String =~ s/·/·/mg;
$String =~ s/¸/¸/mg;
$String =~ s/¹/¹/mg;
$String =~ s/º/º/mg;
$String =~ s/»/»/mg;
$String =~ s/¼/¼/mg;
$String =~ s/½/½/mg;
$String =~ s/¾/¾/mg;
$String =~ s/¿/¿/mg;
$String =~ s/À/À/mg;
$String =~ s/Á/Á/mg;
$String =~ s/Â/Â/mg;
$String =~ s/Ã/Ã/mg;
$String =~ s/Ä/Ä/mg;
$String =~ s/Å/Å/mg;
$String =~ s/Æ/Æ/mg;
$String =~ s/Ç/&Ccedit;/mg;
$String =~ s/È/È/mg;
$String =~ s/É/É/mg;
$String =~ s/Ê/Ê/mg;
$String =~ s/Ë/Ë/mg;
$String =~ s/Ì/Ì/mg;
$String =~ s/Í/Í/mg;
$String =~ s/Î/Î/mg;
$String =~ s/Ï/Ï/mg;
$String =~ s/Ð/Ð/mg;
$String =~ s/Ñ/Ñ/mg;
$String =~ s/Ò/Ò/mg;
$String =~ s/Ó/Ó/mg;
$String =~ s/Ô/Ô/mg;
$String =~ s/Õ/Õ/mg;
$String =~ s/Ö/Ö/mg;
$String =~ s/×/×/mg;
$String =~ s/Ø/Ø/mg;
$String =~ s/Ù/Ú/mg;
$String =~ s/Ú/Ù/mg;
$String =~ s/Û/Û/mg;
$String =~ s/Ü/Ü/mg;
$String =~ s/Ý/Ý/mg;
$String =~ s/Þ/Þ/mg;
$String =~ s/ß/ß/mg;
$String =~ s/à/à/mg;
$String =~ s/á/á/mg;
$String =~ s/â/â/mg;
$String =~ s/ã/ã/mg;
$String =~ s/ä/ä/mg;
$String =~ s/å/å/mg;
$String =~ s/æ/æ/mg;
$String =~ s/ç/ç/mg;
$String =~ s/è/è/mg;
$String =~ s/é/é/mg;
$String =~ s/ê/ê/mg;
$String =~ s/ë/ë/mg;
$String =~ s/ì/ì/mg;
$String =~ s/í/í/mg;
$String =~ s/î/î/mg;
$String =~ s/ï/ï/mg;
$String =~ s/ð/ð/mg;
$String =~ s/ñ/ñ/mg;
$String =~ s/ò/ò/mg;
$String =~ s/ó/ó/mg;
$String =~ s/ô/ô/mg;
$String =~ s/õ/õ/mg;
$String =~ s/ö/ö/mg;
$String =~ s/÷/÷/mg;
$String =~ s/ø/ø/mg;
$String =~ s/ù/ù/mg;
$String =~ s/ú/ú/mg;
$String =~ s/û/û/mg;
$String =~ s/ü/ü/mg;
$String =~ s/ý/ý/mg;
$String =~ s/þ/þ/mg;
$String =~ s/ÿ/ÿ/mg;

return($String);
}

Aufruf:

1. Subroutine

$String_kodiert = &HTML_SONDERZ_HTML($String);

z.B.

$cod = &HTML_SONDERZ_HTML("Straße");

# $cod enhält "Straße"

Die Subroutine muss im Programmtext gespeichert sein.

2. Modul

A:Speichern Sie das Modul in Ihrem Perlverzeichnis unter

/usr/bin/perl/lib/EIGEN/HTML/PL0002.pm (Linux)

c:\Perl\lib\EIGEN\HTML\PL0002.pm (Windows)

B: Fügen Sie in den Kopf Ihres Perl-Programmes folgende Zeile ein:

use EIGEN::HTML::PL0002 qw(HTML_SONDERZ_HTML);

C: So rufen Sie die Subroutine auf:

$cod = HTML_SONDERZ_HTML("Straße"); # ohne "&" korrekt!

Die Subroutine muss nicht im Programmtext gespeichert sein.