Artikel im Internet unter http://www.hidemail.de/blog/chr-perl.shtml.
Mittwoch, 28.2.2007, 00:06:26 Uhr

chr() in Perl - Zeichen anhand seines ASCII-Codes ermitteln und ausgeben

Mit dem Befehl chr() kann man ein Zeichen anhand seines ASCII-Codes ausgeben. Allerdings sind zum großen Teil nur Zeichen > 32 darstellbar, da die darunter liegenden Zeichen meist als Steuerzeichen verwendet werden.

Syntax:
$zeichen = ord ($asciicode);

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/html\n\n<html><body><h1>ASCII-Zeichentabelle</h1>";

my ($i,$j,$zeichenwert);
$zeichenwert=32;
print "<table>";

for ($i=0;$i<12;$i++){
print "<tr>";
for ($j=0;$j<8;$j++){
print "<td width=\"12%\">Code $zeichenwert: ";
print chr($zeichenwert)." ";
print "</td>";
$zeichenwert++;
}
print "</tr>";
}
print "</table></body></html>";

Es wird eine HTML-Tabelle erzeugt, die alle Zeichen zwischen 32 und 127 ausgibt.
Ausgabe des Beispiels

Artikel im Internet unter http://www.hidemail.de/blog/chr-perl.shtml.