Thread In Perl mehrere Zeilen zwischen Strings einer Textdatei auslesen?
(13 answers)
Opened by Jan at 2023-02-07 04:50
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 |