Thread In Perl mehrere Zeilen zwischen Strings einer Textdatei auslesen? (13 answers)
Opened by Jan at 2023-02-07 04:50

Crian
 2023-02-07 08:15
#194654 #194654
User since
2003-08-04
5870 Artikel
ModeratorIn
[Homepage]
user image
Ich würde dann entweder über die Indizes des Arrays iterieren, dann kann man auf die Zeilen davor und danach zugreifen (Achtung an den Rändern) oder erst mal alle Indizes mit den Treffern sammeln und dann in einer zweiten Schleife die Ausgaben machen (auch da Vorsicht an den Rändern).
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View full thread In Perl mehrere Zeilen zwischen Strings einer Textdatei auslesen?