Roger: zeichenkette in unicode umwandeln

Beitrag lesen

hallo zusammen!

ich glaub schon gefunden zu haben, was ich suchte. die magischen befehle waren wohl odr/chr:

#!/usr/bin/perl -w

$string = "roger";
for($i=0; $i<length($string); $i++)
{
   $zeichen = substr($string, $i, 1);
   $ergebnis = $ergebnis."&#0".ord($zeichen).";";
}

print "Content-type: text/html\n\n";
print "<html><head><title>Test</title></head><body>\n";
print $ergebnis."\n";
print "</body></html>\n";