n-tes Vorkommen einer Zeichenkette in einem String ersetzen (Allgemeines zu Perl)

[thread]20306[/thread]

n-tes Vorkommen einer Zeichenkette in einem String ersetzen

Tags: perl5 Similar Threads

Readers: 11

Articles: hide open all | hide show old branches

+5 replies
hago

2017-06-13 22:30

User since
2016-05-29
31 articles
BenutzerIn

Hallo,
ich habe den Inhalt einer html-Tabelle in einen String eingelesen.
Sieht etwa so aus:
----------
<tr>
<td><img src="bil/bild3.jpg" style="padding-top:30px;border:none;">
<p style="text-align:justify;padding-right:12px;">Unser kleiner Kräuteracker im Tal</p></td>
</tr>
----------
Das stellt eine Zeile dar, deren gibt es meistens acht. Jede sieht etwas anders aus.

Ich würde nun gerne in jeder n-ten Zeile (sagen wir zB. in der 3.), das "</td> ersetzen durch <!--/td>

Die Zahl "3" erhalte ich durch das Auszählen eines Verzeichnisses, in dem sich dann zB. 3 Bilder befinden.
Alle Vorkommen von "</td>" zu ändern gelingt mir, aber eben nicht nur dieses eine.

Weiß mir da jemand Rat?
- +4 replies
- hlubenow
  
  2017-06-14 00:44
  User since
  2009-02-22
  877 articles
  BenutzerIn
  2017-06-13T20:30:27 hago
  ich habe den Inhalt einer html-Tabelle in einen String eingelesen.
  
  Würde es helfen, den String in eine Liste zu splitten?
  
  Code (perl): (dl )
  
  my @list = split(/\n/, $string);
  
  (Es kann sein, daß Dein Zeilenendezeichen anders aussieht.)
  Wenn die Datei sehr groß sein sollte, solltest Du darüber hinaus das Modul "Tie::File" verwenden.
  Last edited: 2017-06-14 00:46:11 +0200 (CEST)
  - +3 replies
  - hago
    
    2017-06-14 01:58
    User since
    2016-05-29
    31 articles
    BenutzerIn
    
    Vielen Dank,
    das war genau der richtige Anstoß! Es klappt. So sieht es jetzt aus:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    opendir(DIR, 'originale'); my @files = grep{ /jpg|JPG/ }readdir(DIR); my $im = 0; foreach (@files) {$im++;} close (DIR); my @list = split(/\n/, $teile[1]); $list[($im+1)*3+$im] =~ s/<\/td>/<!--\/td>/; my $mitte = join ("\n",@list);
    
    Ich habe genau, was ich möchte.
    - hlubenow
      
      2017-06-14 02:06
      
      User since
      2009-02-22
      877 articles
      BenutzerIn
      
      2017-06-13T23:58:05 hago
      Ich habe genau, was ich möchte.
      
      Freut mich! :)
    - rosti
      
      2017-06-14 08:04
      
      User since
      2011-03-19
      3548 articles
      BenutzerIn
      
      Zweckmäßigerweise wird sowas bereits beim Erstellen der HTML-Datei erledigt.
      http://blog.rolfrost.de/
      
      The art of steam.

View all threads created 2017-06-13 22:30.