Thread Warum werden Zeichen nicht ausgetauscht ? (13 answers)
Opened by jan99 at 2014-12-04 07:29

FIFO
 2014-12-04 14:53
#178660 #178660
User since
2005-06-01
469 Artikel
BenutzerIn

user image
weil $str =~ s/[sT]t./sankt/g; alle Vorkommen von st und Tt, gefolgt von einem beliebigen Zeichen durch sankt ersetzt.

Gemeint ist wohl eher sowas:
Code (perl): (dl )
$str =~ s{ \b [Ss]t \. }{sankt}gx;


P.S. Wenn Du in der normalen DOSbox (nicht Unicode) korrekte Umleute sehen willst, kannst Du am Skriptanfang folgendes schreiben:
Code (perl): (dl )
binmode(STDOUT, ':encoding(cp437)') if $^O eq 'MSWin32';


Editiert von FIFO: P.S.
Last edited: 2014-12-04 14:57:12 +0100 (CET)
Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"

View full thread Warum werden Zeichen nicht ausgetauscht ?