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."�".ord($zeichen).";";
}
$ergebnis_plain = $ergebnis;
$ergebnis =~ s/&/&/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...]