Zähler im Ersatztext (Allgemeines zu Perl)

[thread]13586[/thread]

Zähler im Ersatztext

Leser: 24

Articles: hide open all | hide show old branches

+4 replies
PLS

2009-05-28 21:05
User since
2008-04-24
5 Artikel
BenutzerIn
Liebes Forum,

ich habe folgendes Problem: ich möchte in einer HTML-Datei tags in Form von »<seite \w+>« finden und das \w+ in diesen tags durch eine jeweils um 1 erhöhte Zahl ersetzen. Mit anderen Worten: in der HTML können nacheinander folgende tags enthalten sein: …<seite 1>…<seite 5>…<seite ii>…<seite 3> usw. Ich möchte diese tags (in der Reihenfolge, in der sie auftreten) folgendermaßen abändern: <seite 1>…<seite 2>…<seite 3>…<seite 4> usw. (Noch besser wäre: <seite i> …<seite ii>…<seite iii>…<seite iv>)

Ich habe bereits mit mehreren for- und while-Schleifen experimentiert, bekomme es aber nicht hin. Hier ein Versuch für 10 Seiten-tags
Code: (dl )

1 2 3 4 5 6

$seitenzahl = 10; $zaehler = 1; while ($zaehler <= $seitenzahl) { $zeile=~s!<seite.+?>!<seite $zaehler>!s; $zaehler++; }
Leider erhöht dieses Skript nur im ersten tag die Seitenzahl bis die Schleife zu Ende ist. Alle anderen tags bleiben unverändert. Was mache ich falsch bzw. wie bekomme ich es hin, dass perl die Suche beim nächsten Schleifendurchgang vom zuletzt bearbeiteten tag beginnt? (Beim match-Operator gibt es doch dafür das \G oder nicht?)
Bin dankbar für jeden Hinweis!
PLS
- +3 replies
- topeg
  
  2009-05-28 21:55
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  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)
  - +2 replies
  - PLS
    
    2009-05-28 22:45
    
    User since
    2008-04-24
    5 Artikel
    BenutzerIn
    
    Danke topeg,
    
    das klappt schon einmal!
    
    Ich würde jetzt gern noch erreichen, dass der Zähler in Abhängigkeit der Variable $VorspannSeitenzahl (Abfrage der Seitenzahl des Vorspanns eines Buchs) die Zählung in römischen Ziffern vornimmt, also <seite i>, <seite ii>, <seite iii>. Ein zweiter Zähler sollte dann das gleiche für die Seiten des Hauptteils eines Buchs ausführen (Variable $HauptteilSeitenzahl), wobei von 1 gezählt werden sollte, jedoch ausgehend vom ersten »Seiten-tag« nach den tags des Vorspanns. Wurde also auf die Abfrage der Seitenzahl des Vorspanns eine »10« eingegeben, so sollte der elfte Seiten-tag die Seitennummer 1 erhalten, d.h. <seite 1> usw. (arabische Zahlen).
    
    Auch hier vielen Dank für jeden Tipp!
    PLS
    - leo11
      
      2009-05-29 06:56
      
      User since
      2008-08-14
      250 Artikel
      BenutzerIn
      
      Schau dir mal folgendes an:
      Roman
      
      Es stellt die beiden Subs Roman und roman zur Verfügung, die genau dafür gedacht sind.

View all threads created 2009-05-28 21:05.