User Tools

Site Tools


kurs:3._einheit

Regular Expressions

Auswertung eines LogFiles

extrahieren der TLD einer email Adresse

Ermitteln einer g�ltigen Postleitzahl

Ausmaskieren von Zeichen deren ASCII Wert größer 127 ist

use strict;
use warnings;


my $t = 'öäü';

my $text = "häuser österreich übersiedeln\n";

## $text =~ s/[öüä]//g;

my @a = split '', $text;
# $" = "\n";
# print "@a";

my @b = map {ord($_) < 127 ? $_ : sprintf "&#%d;", ord($_) } @a ;

my $b = join '', map {ord($_) < 127 ? $_ : sprintf "&#%d;", ord($_) }  split '', $text;
  ## '&#'.hex(ord($_)).';' } @a;
print $b;
# print  "\n";
print $text;

$text =~ s/(.)/ord($1) < 127 ? $1 : sprintf "&#%d;", ord($1)/eg;

print $text;
kurs/3._einheit.txt · Last modified: 2014/09/10 21:22 (external edit)