Roger: zeichenkette in unicode umwandeln

Beitrag lesen

Auflösung ;)
hier isses jetzt noch'n bischen besser erkennbar:

#!/usr/bin/perl -w

$string = 'roger_123@0815mail.de';
for($i=0; $i<length($string); $i++)
{
   $zeichen = substr($string, $i, 1);
   $ergebnis = $ergebnis."&#0".ord($zeichen).";";
}

$ergebnis_plain = $ergebnis;
$ergebnis =~ s/&/&amp;/g;

print "Content-type: text/html\n\n";
print "<html><head><title>Test</title></head><body>\n";
print "Original:<br>".$string."<br>\n";
print "So wirds geschrieben:<br>".$ergebnis."<br>\n";
print "und so siehts aus:<br>".$ergebnis_plain."<br>\n";
print "</body></html>\n";

hauptsächlich möchte ichs für e-mail codierung nutzen. denke doch, dass es ausreicht...

[kann ich mir mal selber danken...]