Datenstruktur kopieren und leicht verändert einfügen (Allgemeines zu Perl)

[thread]20274[/thread]

Datenstruktur kopieren und leicht verändert einfügen

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+3 replies
Gast Baennie

2017-04-24 13:01

Hallo,

ich hoffe sehr, dass mir jemand bei folgendem Problem helfen kann.
Ich habe eine Textdatei, in der - mittendrin - eine Struktur folgender Art vorkommt:

s_1:
(1) r_1:
...beliebiger Text...

s_2:

Für eine große Anzahl von Dateien möchte ich nun den Text ab "(1) r_1:" und vor "s_1:" wieder einfügen, so dass ich folgendes erhalte:

s_1:
(0) r_1:
...belieber Text...

(1) r_1:
...beliebiger Text...

s_2:

("beliebiger Text" ist in beiden Fällen gleich, es handelt sich um eine Kopie.)
Ein Block der Datei soll also an die richtige Stelle kopiert werden, dabei soll die Zeichenkette - nur in der Kopie! - (1) durch (0) ersetzt werden.
Mein Ansatz wäre folgender:

a) Finde den Text nach "s_1:" bis (ausschließlich) "s_2:"
b) Kopiere diesen Text
c) Ersetze in der Kopie (1) durch (0)
d) Füge Kopie an der richtigen Stelle ein

Kann mir jemand dazu Tipps geben?
Vielen Dank im Voraus!
Last edited: 2017-04-24 13:43:27 +0200 (CEST)
- hlubenow
  
  2017-04-24 13:56
  User since
  2009-02-22
  885 Artikel
  BenutzerIn
  Sowas hab' ich schonmal geschrieben. Wurde so mittellang, und auch etwas verwirrend, mußte geordnet werden.
  Um die zu ersetzenden Textpassagen zu finden, verwende ich sowas:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  sub getContentsRange { my $startstring = shift; my $endstring = shift; my @text = @_; my $i; my $startnr; my $endnr; for $i (0 .. $#text) { if ($text[$i] eq $startstring) { $startnr = $i; } if ($text[$i] eq $endstring && $i > $startnr) { $endnr = $i; last; } } return ($startnr, $endnr); }
  
  Last edited: 2017-04-24 13:59:46 +0200 (CEST)
- rosti
  
  2017-04-24 14:07
  
  User since
  2011-03-19
  3726 Artikel
  BenutzerIn
  
  Quote
  Kann mir jemand dazu Tipps geben?
  
  Mit Datenstrukturen hat das nichts zu tun. Was Du möchtest sind Operationen mit Strings aus denen Du allenfalls ein Array erzeugst und anderweitig wieder zusammensetzt. Also substr(), split() und join() und z.B. einen regulären Ausdruck der beim Auffinden entsprechender Textstellen behilflich ist.
  
  MfG
  http://rolfrost.de/wallpaper.html
  
  WallPaper -- jeden Monat neu. Mit nur 2 Klicks den Aktuellen Monat auf dem Desktop.

View all threads created 2017-04-24 13:01.