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 Thema: Perl Skalare
Der Beitrag "chr() in Perl - Zeichen anhand seines ASCII-Codes ermitteln und ausgeben" wurde 15922 mal gelesen.
Zufällige Beiträge im /blog/perl
0.0217070579528809 sec. to build ...Blogsoftware in pure Perl - Powered by a lot of Coffee...
Gelesene Beiträge insgesamt: 4418470