Erläuterung:
Die Subroutine HTML_SONDERZ_ISO nimmte eine ISO-Kodierung der 96 wichtigsten, europäischen Sonderzeichen (von & bis ÿ ) vor.
In der beiliegenden Datei PL0001.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_ISO
{
my ($String) = $_[0];
$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;
$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_ISO($String);
z.B.
$cod = &HTML_SONDERZ_ISO("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/PL0001.pm (Linux)
c:\Perl\lib\EIGEN\HTML\PL0001.pm (Windows)
B: Fügen Sie in den Kopf Ihres Perl-Programmes folgende Zeile ein:
use EIGEN::HTML::PL0001 qw(HTML_SONDERZ_ISO);
C: So rufen Sie die Subroutine auf:
$cod = HTML_SONDERZ_ISO("Straße"); # ohne "&" korrekt!
Die Subroutine muss nicht im Programmtext gespeichert sein.
|