Thread Warum werden Zeichen nicht ausgetauscht ?
(13 answers)
Opened by jan99 at 2014-12-04 07:29
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"
|