Thread Zähler im Ersatztext
(3 answers)
Opened by PLS at 2009-05-28 21:05
Ungetestet...
Code (perl): (dl
)
1 2 3 4 my $zaehler = 1; my $dokument .... $dokument=~s!<seite.+?>!"<seite ".($zaehler++).">"!sge; oder etwas andere Strategie: Code (perl): (dl
)
1 2 3 4 my $zaehler = 1; my $dokument .... $zaehler++ while($dokument=~s!<seite\D+?>!<seite $zaehler>!s) oder noch anders: Code (perl): (dl
)
1 2 3 4 5 6 7 8 my $dokument .... my @blocks=split(/<seite.+?>/,$dokument) $dokument=shift(@blocks); for my $zaehler (1..$#blocks) { $dokument.="<seite $zaehler>".shift(@blocks); } Edit: Fehler beseitigt. Last edited: 2009-05-28 22:12:18 +0200 (CEST) View full thread Zähler im Ersatztext |