Opened by Lebewesen at 2011-11-09 16:41
User since
2006-01-27
3890 Artikel
HausmeisterIn
2006-01-27
3890 Artikel
HausmeisterIn
OK.
es ist nur noch undefiniert, wie die Überschriften nun bearbeitet werden sollen.
Ich nehme den einfachsten Fall an, dass jedes Wort der Überschrift mit einem Großbuchstaben anfangen und der Rest des Wortes klein geschrieben werden soll.
Man kann auch eigene Subroutinen im Ersetzungsteil verwenden:
Ansatz:
Code ungetestet, weil schnell zum Feierabend gehackt ;-)
es ist nur noch undefiniert, wie die Überschriften nun bearbeitet werden sollen.
Ich nehme den einfachsten Fall an, dass jedes Wort der Überschrift mit einem Großbuchstaben anfangen und der Rest des Wortes klein geschrieben werden soll.
Man kann auch eigene Subroutinen im Ersetzungsteil verwenden:
Ansatz:
Code (perl): (dl
)
1 2 3 4 5 6 7
sub ucfirst_every_word { my $s = shift; $s =~ s{\b(\w+)\b}{ucfirst(lc($1))}eg; return $s; } $text =~ s/(= .*?KAPITEL.*? =)/ucfirst_every_word($1)/eg;
Code ungetestet, weil schnell zum Feierabend gehackt ;-)
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!