Steuerzeichen ausgeben: ohne es auszufühen - #68109 (Allgemeines zu Perl)

sid burn

2006-07-16 23:07

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

Code: (dl )

m/\s+|\s*\t|\s*\n\r?|und so weiter/g)

"\s" selber steht NICHT für Leerzeichen, sondern für Whitespace Zeichen. Ein Whitespace Zeichen ist jedes Zeichen das bei einem Ausdruck z.B. keine Farbe verschwenden würde. Dein kompletter Regulärer Ausdruck kannst du also auf folgendes kürzen.

Code: (dl )

m/\s/g

Da \s bereits \t, \n, \r etc. enthält sind deine ganzen Alternativen hinfällig.

Ansonsten könntest du es folgendermaßen machen, dass du ein Hash aufbaust dessen Schlüssel der ASCII Wert des Zeichen ist, und der Wert den String den du ausgeben möchtest.

Code: (dl )

#!/usr/bin/perl
use warnings;
use strict;

my $text = "Hallo\t\r\nWelt   foo";

my %symbols = (
    ord " "  => '[SPACE]',
    ord "\n" => '\n',
    ord "\t" => '\t',
    ord "\r" => '\r',
);

while ( $text =~ m/\G  (\S*)  (\s)  (\S*)  /gx ) {
    print $1, 
          $symbols{ ord($2) }, 
          $3;
}
print "\n";

Ausgabe:

Code: (dl )

Hallo\t\r\nWelt[SPACE][SPACE][SPACE]foo

\n\n

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de