Thread Zähler im Ersatztext (3 answers)
Opened by PLS at 2009-05-28 21:05

topeg
 2009-05-28 21:55
#122041 #122041
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
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